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A Word to Parents 



Games have long been used to teach. Even the simplest chUdren's 
games, like tag or hopscotch, teach cooperation, shapes, count- 
ing, or other skills. Games make learning hin. 

The computer makes that learning even more enjoyable. With 
its graphics, colors, and sounds, the Commodore 64 can become 
an excellent tool for learning. 

Commodore 64 Games for Kids gives you 30 fully developed 
games, including a quiz builder you can use to create your own 
test on any subject. This book places a powerful teaching tool in 
your child's hands. Game programs that teach such subjects as 
reading, spelling, geography, and m)i:hology make learning 
pleasant, not painful. 

Divided into four levels, the games are grouped according to 
age and skills, as well as subject areas. Each game includes de- 
tailed and clear explanations of its story, how to play the game, 
and how to score points. Many of the games can be modified to 
suit your child's individual needs. 

Some of the games contain many questions on a topic. In 
order to include a vast resource of questions, these programs also 
contain many DATA statements, which means a lot of t}^ing. 
Although you will have to enter these programs, youH find the 
thoroughness of the question-and-answer games well worth the 
time. 

In order to make entering the programs easier, a checksum 
program is included. Please read the article "Automatic Proof- 
reader" before typing in any of the programs in this book. 

There are even four arcade-style games for your child to play 
when the homework's done. 

Expanding your child's (and perhaps even your own) knowl- 
edge with the Commodore 64 becomes easy with Commodore 64 
Games for Kids. You'll spend many entertaining and educational 
hours with this book and your Commodore 64 home computer. 
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Guilty Conscience 

If you're like most parents, part of the reason you bought your 
Commodore 64 was to teach your kids. "Computer literacy is the 
issue of the eighties," you told yourself. "Our kids won't be able to 
survive in the world if they don't know computers." 

Well, that was enough justification for you to buy your Com- 
modore 64, but have you really put the computer to full use as a 
teaching tool? Perhaps you wrote a couple of simple math games 
for the kids, but chances are they have been playing Frogger ever 
since. 

You don't need to feel guilty any longer. Commodore 64 Games 
pr Kids will ease your conscience and teach the kids (and you) at 
the same time. 

What Did You Learn in Higli Scliool? 

For many people, high school was a free ride. The goal was to 
have fun. If you are like most people, you went to school because 
you had to go. If you'd had a choice, you'd have gone to school 
anyway; it was a good place to meet friends. The fact that your 
teachers were trying to cram knowledge into your head during 
those few years was incidental. 

What do you remember from high school? You remember 
your friends, the games, and those painful school dances. 

You' also remember the teachers. You remember Billy's imita- 
tion of the way Mr. Berryhill walked and the way Mrs. Tliompson 
came all unhinged when people threw things in class. 

But do you remember what those teachers labored to teach 
you? Do you remember the capitals of more than 5 of the 50 
states? When the new Dionysus Greek Restaurant opens down- 
town, do you know the significance of the name? How many 
names of the bones of the body or chemical elements can you 
recall? 

If you're like most of us, you forgot aU that information 
because you studied one night to memorize for a test. When the 
test was over, you let the information slip from your memory. You 
didn't have any incentive to remember what you'd learned. 

Commodore 64 Games for Kids can change all that, at least for 
children. What they learn pla)dng these games will stay with 
them. Why? Because theyll have fun learning it. Theyll learn the 
information by pla5dng games theyTl want to play. 



The Commodore 64 As a Teacher 

Computers are a mixed blessing when it comes to teaching. Some 
features adapt themselves well to a teaching environment, while 
others may make it frustrating for begiimers to use. A program- 
mer can miiximize the frustration, but some will always be 
present. 

Computers are good teaching tools because they can utilize 
sounds, colors, and graphics — features that help hold your 
attention. Computers also have the ability to present data with a 
degree of randomness. This reduces boredom and makes learn- 
ing the same material fun for a longer period of time. 

Computers are also well accepted by most children because 
they represent a comfortable environment. The fact that some 
games use joysticks further promotes this environment. If you 
don't tell the kids they're learning while they're having fun, they 
may never know. 

There can be problems though. Your main pipeline to the 
computer is the keyboard. Although most older children find the 
keyboard a challenge, some younger children may be intimidated 
by it. This anxiety can be minimized by using a joystick on games 
for younger players, or by requiring the younger child to enter 
only a few characters at the keyboard. The games in this book are 
written to give young children computer exposure that will en- 
courage, not frighten them. 

Another problem in using computers as teaching tools is that 
the machines are very exact. You may recognize Misissipi as a cor- 
rect answer, but the computer won't. You can minimize this by 
using multiple-choice answers such as A, B, or C when you create 
your own games. When creating your own games, if you expect 
an answer to be typed in, you need to provide a list of possible an- 
swers as the computer xvill accept them so the child won't be frus- 
trated by spelling errors. All of the question-and-answer games in 
Commodore 64 Games for Kids do this. 

Another possible problem when using computer games is 
that some of the more complex programs have short delays while 
tables are loaded and manipulated within the program. This can 
be alleviated by including a short song that plays while tables are 
being loaded. You can also reduce the frustration by telling the 
user a delay will occur. The programs in this book have taken all 
this into consideration. 
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Programmer's Guide 

^ A common misconception that has been created by zealous com- 
^ puter salespeople is that you can buy a home computer, unpack 
it, plug it in, and it will immediately solve all your problems. This 
is as sensible as buying a power saw and expecting it to btuld 
^ furniture for you. The saw is capable of doing the job, but you 
must guide it to do the work. A home computer, like the saw, is 
capable of doing many things — but you must guide it via your 
^ program. 

Commodore 64 Games for Kids will provide a good set of enjoy- 
^ able and educational games. And in tiie process of entering the 
^ games into the Commodore 64, you may even learn something 

about how the programs work. It's just a short step from entering 
1^ a program to making minor modifications of that program. Once 
^ you've made those minor modifications, you're on your way to a 
knowledge of computer programming. 

n 
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How to Use 
This Book 



The games in this book are divided into fotir levels, plus a section 
of games children can play solely for entertainment. Finally, 
there's a section featuring a program you can use to make your 
own computer quizzes. The appendices will give you more tips 
^ on what this book contains, how to modify the games to suit your 
children's individual needs and tastes, and a guide to typing in 
the programs. It is very important that you read the guide before 
typing in the games. 



The games in this book are divided into fovir levels: 

Level 1 includes games for preschoolers, or children who have 
not yet learned to read. 

"I Level 2 features games for early readers. First- through fifth- 
^ graders will feel most comfortable pla3dng games in this level . 
- Level 3 games are for kids in upper elementary or junior high 

school . The games are more sophisticated than those in Level 2, 
r*) and some are nearly as complex as the Level 4 games. 

Level 4 games are for older students. Adults would also be chal- 
lenged by these games. 

Turn to the first game in the Level 1 section, "A-Maze-Ing." At 
the top of the first page is a section of information for you, the 
programmer. The first line. Skill Area, tells you what your child 
can learn by playing this game. All games in Commodore 64 Games 
for Kids teach children something in at least one of six areas: 

^ Coordination (includes shape recognition, color identification, 
motor skills, and instruction-following) 
Language Arts 
Mathematics 
^ Memory and Logic 
^ Science 

Social Studies 

^ A parent whose child needs help in, say, mathematics, may 

wish to leaf through the book and pick out the mathematics pro- 
^ grams to enter first. Check Appendix C for a breakdown of games 
■ ' according to subject. 

r**) The second line, Level, tells which skill or age level(s) would 

^ enj oy playing the game. Programs are grouped according to the 

^ xiii 



earliest level at which a child wotdd enjoy the game. However, 
most of the games appeal to children of more than one age group. 
A-Maze-Ing, for instance, appeals to a Level 1 child, but a Level 2 
child could also enjoy playing the maze. For a complete grouping 
of games by age level, see Appendix C. 

The third line. Equipment Required, indicates extra equip- 
ment that may be required for full enjo5nnent of the game. (All the 
programs in this book, of covirse, reqtiire a Commodore 64 and a 
TV or monitor and a disk drive or datassette to S^WE the pro- 
grams.) In some games, this line indicates whether a joystick is re- 
quired for play. If you don't have a joystick. Appendix D will tell 
you how to adapt each game to play without one. 

The final line. Modification, tells you whether the program 
can easily be changed to suit individual needs. Modification can 
involve just changing the program from joystick to keyboard con- 
trol. More often, however, you may want to modify a program to 
include additional information. The list of United States presi- 
dents in "Mr. President" can be updated, for example, and some 
new elements may be discovered to justify additions to "Element 
Man." Children's needs have been anticipated here. Programs 
that can be modified will be listed and instructions will be given 
in Appendix D. 

Look at the rest of the documentation for the game A-Maze- 
Ing. It's divided into three parts — a scenario, instructions for 
play, and scoring rules. All the games except the complex 
question-and-answer games include a scenario to stimulate the 
child's imagination and his interest in the game. The How to Play 
and Scoring sections give the mechanics for game play. 

Note that for the games in Levels 1 and 2, you will have to 
read the scenario, instructions, and scoring rules to your child. 
Younger children are not expected to use the games alone. Of 
course, this can enhance the learning experience as your child 
learns alongside you. The scenario would not have to be read 
word for word, for example, but could be described in a story- 
telling manner. Children in Levels 3 and 4 can probably under- 
stand the games' documentation, although they may need some 
interpretation from you. 

You will have to do the majority of the typing as you enter 
each program, especially with the games in the first two levels. 
Young children can get easily frustrated as their errors multiply. 
Children in Levels 3 and 4 could try to enter the programs if they 
wish, perhaps after watching you, or if they already have had 
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^ some experience with personal computers. 

r*) All the documentation for Commodore 64 Games for Kids f ol- 

lows the format explained above. Even the games in the "Just for 
^ Fun When the Homework's Done" section teach coordination 
f*^ and quick thinking and can thus be loosely construed as educa- 

tional games. 

^ The only exception is "Build a Quiz/' a program for parents. 

In this section, you can create your own question-and-answer 
^ games or tests, using a skeleton program. 
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Skill area: Coordination 
Level: 1,2 

Equipment required: Joysticic 
Modification: Yes 

Story of the Orchard 

O You are a piglet in the orchard. Piglets like food, and orchards are 
^ full of apples, so you've escaped from your pen and run toward 
the trees. Farmer Brown is following close behind, so you have 
two minutes to eat all the apples you can before Farmer Brown 
catches you. 

Some of the apples may be out of reach. Don't worry about 
O them. Just eat all the apples you can before you have to leave the 
^ orchard. 

^ How to Play 

"A-Maze-Ing" is a game of coordination and speed. Using the joy- 
stick, you move through the maze to find the apples. You have 
two minutes to eat all the apples you can. If you've eaten all the 
apples that aren't hidden hy dead ends of the maze, you can end 
O the game by pressing fl. 

1*^ There are 25 apples. Each time you eat an apple, youH hear a 

Gulp! sound, and the backgroimd color of the orchard will 
^ change. When you've eaten all the apples, a song will play. 

Scoring 

r*) At the end of the game, your score will tell you how many apples 
you ate, as well as the percentage of the 25 apples that you ate. 
You will also see how long it took you to eat aU the apples within 
r*^ reach. 

If you're a good piglet, youH soon be able to eat all the apples 
in the orchard, unless one or two are hidden by the orchard 
(—) maze. When you get that good, try to see how much faster you 
can do it . If you're fast enough to eat all the apples in two min- 
^ utes, see if you can move like a greased pig and eat all of them in 
f*\ one minute. 

n 
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A-Maze-Ing 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM A-MAZE-ING :rem 187 

100 DIMRT(3),NT%(16,1,1),JT%(10,1):RT(0)=2:RT(1)=- 

80:RT(2)=-2:RT(3)=80:LS=40 :rem 126 

110 VC=5 3248: POKEVC+3 2,6: POKEVC+3 3,1: PRINTCHR$ (147 

) : rem 7 

120 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rem 69 
130 M=( (PEEK(53272)AND240)/16)*1024 :rem,41 
140 C=55296 :rem 32 

200 FORW=0TO1:X=0 irem 16 

210 READY, Z:NT%(X,W,0)=Y:NT%(X,W,1)=Z:X=X+1:IFY<>0 

THEN210 :rem 223 

220 NEXTW : FORW=0TO1 : FORY=0TO 1 : READZ : JT% ( W , Y ) = Z : NE 

XTY,W :rem 148 

300 PRINT" {CLR} {red} {down} {15 SPACES} {RVS}A-MAZE-I 

NG{0FF}" :rem 110 

305 PRINT" {2 DOWN} RUN AROUND THE APPLE ORCHARD EA 

TING" :rem 87 

310 PRINT" ALL YOU CAN BEFORE YOUR TIME IS UP." 

:rem 173 

320 PRINT" {2 DOWN} USE THE JOYSTICK TO MOVE AROUND 
THE{5 SPACES} ORCHARD MAZE." : rem 168 

325 PRINT" {2 DOWN} YOU HAVE TWO MINUTES TO EAT ALL 
YOU" :rem 32 

327 PRINT" CAN, OR USE {RVS}F1{0FF} TO QUIT E7VRLY. 

:rem 165 

330 PRINT" {2 DOWN} YOU MAY NOT BE ABLE TO REACH AL 
L 0F{5 SPACES}THE APPLES IN THE ORCHARDi" 

:rem 175 

340 PRINT"{3 D0WN}{9 SPACES}(HIT ANY KEY TO START) 

:rem 211 

350 X=0:GOSUB9500 :rem 229 

360 GETX$:IFX$=""THEN360 : rem 131 

370 GOSUB9000:FORW=1TO40:GOSUB8500:POKEM+X,81 :POKE 
C+X,2:NEXTW : rem 130 

380 GOSUB8500:POKEM+X,86:POKEC+X,4 : rem 74 

390 R1=INT(X/LS) :C1=X-(R1*LS) :TI$="000000" : AC=0 

: rem 146 

400 C2=C1:R2=R1 : rem 56 

410 GOSUB8000:IFC1=C2ANDR1=R2THEN410 : rem 167 

420 IFC2<0THENC2=0 : rem 23 

430 IFC2>39THENC2=39 : rem 146 

440 IFR2<0THENR2=0 : rem 55 

450 IFR2>24THENR2=24 :rem 166 

460 X=PEEK(M+(R2*LS)+C2) : rem 91 

470 IFXO32ANDXO81THEN400 :rem 50 
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480 0D= ( Rl *LS ) +C1 : ND= ( R2*LS ) +C2 : IFX=81THEN600 

:reni 123 

500 POKEM+OD, 32 : POKEC+OD, 1 : POKEM+ND, 86 : POKEC+ND, 4 

:rem 253 

510 C1=C2 :R1=R2 :GOTO410 : rem 66 

600 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 15 : POKEMC+6 ,15: 
POKEMC+4,129:POKEMC+24,5 : rem 159 

610 FORY=40TO60 STEPS : POKEMC+ 1 , Y : FORW= 1T05 : NEXTW , Y 

:rem 223 

615 POKEMC+4, 128:POKEMC+24,0 :rem 103 

617 POKEM+ND, 86: POKEC+ND, 4 :rem 58 

620 POKEM+OD, 32: POKEC+OD, 1 : rem 42 

640 C1=C2:R1=R2:AC=AC+1 :rem 25 

650 IPAO39THENGOTO800 : rem 88 

660 Y=(PEEK(VC+32)AND15)+1:IFY>15THENY=2 :rem 116 
670 POKEVC+32,Y : rem 122 

680 GOTO410 :rem 108 

800 P0KEVC+32,6:PRINT"{CLR}{RED}{D0WN}{14 SPACES} 

{RVS}HAPPY EATING{0FF}" ;rera 251 

810 PRINT"{3 down} YOU ATE" ; AC; "APPLES. " : rem 165 
820 PRINT" {down} YOUR SCORE IS" ; INT ( AC*10/4 ) ; " 

{LEFT}%":W=INT(TI/60) :X=INT(W/60) rrem 64 

830 Y=W-(X*60) :X$=STR$(X) : Y$=RIGHT$ (X$ , 1 )+".": IFY< 

10THENY=Y+100 rrem 157 

840 X$=STR$(Y) :Y$=Y$+RIGHT$(X$,2) :PRINT"{D0WN} YOU 

R TIME IS ";Y$ : rem 115 

850 X=l :GOSUB9500 :rem 235 

860 PRINT"{3 D0WN}{BLK} PLAY AGAIN? ( {RVS}y{OFF}/ 

{RVS}n{OFF})" :rem 118 

870 GETX$:IFX$=""THEN870 : rem 143 

880 IFX$="Y"THEN370 :rem 78 

890 IPX$<>"N"THEN870 : rem 134 

900 X=0:GOSUB9500:PRINTCHR$(147) : rem 155 

910 END :rem 113 

8000 IFTI$>"000200"ORPEEK(197)=4THEN800 :rem 172 
8010 J1=15-(PEEK(56321)AND15) : rem 21 

8020 R2=R2+JT%(J1,0) : rem 37 

8030 C2=C2+JT%(J1,1) :rem 9 

8040 RETURN : rem 172 

8500 X=INT(RND(1)*1000) :IFPEEK(M+X)<>32THEN8500 

:rem 217 

8510 RETURN : rem 174 

9000 POKEMC+0 , : POKEMC+1 , : POKEMC+5 ,15: POKEMC+6 , 1 5 

:POKEMC+24,5 :rem 178 

9005 PRINTCHR$(147);"{BLK}"; :X$="{RVS}{39 SPACES} 

{off}" :rem 110 

9010 F0RX=1T024:PRINTX$;"{RVS} {OFF} " ; :NEXTX:PRINT 

X$; :POKEM+999, 160:POKEC+999,0 rrem 157 

9020 X=M+81:POKEX,4 rrem 98 



9030 Y=INT ( 4*RND ( 1 ) ) : Z=Y : POKEMC+1 , INT ( RND ( 1 ) * 10 ) +1 

0:POKEMC+4,17 :rem 178 

9040 W=X+RT(Y) :IFPEEK(W)=160THENPOKEW,Y:POKEX+RT(Y 

)/2,32:X=W:GOTO9030 :rein 107 

9045 POKEMC+4,16 :reni 131 

9050 Y=Y+1:IFY>3THENY=0 :rem 161 

9060 IFYOZTHEN9040 :rein 135 

9070 Y=PEEK(X) :POKEX,32 :rera 134 

9080 IFY<4THENX=X-RT(Y) :GOTO9030 :rem 1 

9090 POKEMC+24, :FORX=0TO999 : IFPEEK(M+X) <>160THENP 

OKE(M+X),32 :rem 226 

9100 NEXTX: RETURN :rem 123 

9500 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 1 2 

9: POKEMC+24, 15 :Y=0 :rem 40 

9510 W=INT(NT%(Y,X,0)/256) :rem 188 

9520 POKEMC+0,NT%(Y,X,0)-(W*256) :rem 3 

9530 POKEMC+1, W:P0KEMC+4, 17 :rem 91 

9540 FORW=1TONT%(Y,X,1)*100:NEXTW : rem 254 

9550 POKEMC+4,1&:FORW=1TO20:NEXTW : rem 63 

9560 IFNT%(Y,X,0) <>0THENY=Y+1:GOTO9510 : rem 26 

9570 POKEMC+24, :rem 129 

9580 RETURN : rem 182 

10000 DATA6430, 2 , 6430 , 2 , 6430 , 2 , 4817 , 2 , 5407 , 2 , 5407 , 
2,4817,4,8101,2 :rem 170 

10010 DATA8101,2,7217,2,7217,2,6430,4,0,0 :rem 251 
10020 DATA6430, 2, 6430, 2, 7217, 2, 5728, 2, 6430, 1,7217, 
2,8101,2,8101,2 srem 163 

10030 DATA8583,2,8101,2,7217,1,6430,2,8583,2 

:rem 171 

10040 DATA6430,2,5728,2,6430,8,0,0 :rem 175 

10500 DATA0, 0,-1, 0,1, 0,0, 0,0, -1,-1, -1,1, -1,0, 0,0,1 
,-1,1,1,1 :rem 230 
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Level 

1 

pots 

Skill area: Mathematics 
Level: 1 

Equipment required: None 
Modification: No 

The Old Monopoly Dice 

All the big kids play Monopoly, but you can't get anybody to play it 
with you. Monopoly isn't easy, and Dad says you have to be able to 
roll the dice before you can learn the rest of the game. 

Rolling the dice isn't hard, unless a die rolls off the table and 
you have to look for it in the carpet. The hardest part is deciding 
what the spots on the dice mean. Each spot stands for the num- 
ber 1, and you add the number of spots on both dice to see how 
many squares you can move ahead when your turn comes. When 
you can count the numbers on the dice, maybe the other kids will 
let you play Monopoly with them. 

How to Play 

Each game consists of ten rolls of the dice. The computer will roll 
the dice, and you count the number of spots. When you think 
you have the right number, type the number and then press the 
key that says RETURN. Don't spell the ntimbers out: type 10, not 
TEN. 

YouH know when you get a right answer by the whooshing 
sound and the colors flashing on the screen. A wrong guess will 
cause the screen to go black, and youll hear a raspberry. 

Scoring 

At the end of the game, the computer will tell how many times 
you were right. The highest score possible in one game is 10. The 
computer will also tell the highest score that you've made since 
you started playing "Count the Spots" this time. After a game, 
type the letter Y to play again. To quit, type N when the computer 
asks if you want to play once more. 

Count the Spots 

Remember, do not type the checksum number at the end of each line. Por example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 
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1 REM COUNT THE SPOTS : rem 24 

10 VC=53248 : POKEVC+32 , : POKEVC+33 , 1 :PRINTCHR$ ( 147 ) 

:rein 208 

20 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rein 20 
50 DIMDI$(5),DI%(5,2),S%(11,1) :reni 236 

60 A$="{RVSl{40 SPACES} {off}" : rem 240 

70 B$="{RVS}{6 SPACES} {off} {11 SPACES} {RVS} 

{6 SPACES} {off} {11 SPACES} {RVS} {6 SPACES} {OFF} " 

:rem 58 

100 FORX=0TO5 : READX? : DI $ ( X ) =X$ : NEXTX : CT $= " { CYN } 

{PUR}{GRN} {BLU}{YEL}" :rem 145 

110 FORX=0TO5 : FORY=0TO2 : READZ :DI%(X,Y)=Zi NEXTY, X : H 

S=0 :rem 203 

120 PRINT"{RED}{CLR}{2 D0WN}{13 SPACES} { RVS } COUNT 

{space} THE SPOTS" : rem 74 

125 PRINT" {2 down} EACH GAME CONSISTS OF TEN ROLLS 
OF THE {2 SPACES } DICE. " : rem 237 

130 PRINT" {2 DOWN} THE PLAYER MUST COUNT THE NUMBE 

R OF" :rem 70 

135 PRINT" SPOTS 0NB0TH{0FF} DICE AND ENTER 

{SPACE}THAT{7 SPACES } number. " :rem 255 

140 PRINT" {2 DOWN} ONE POINT IS RECEIVED FOR EACH 

{SPACE} CORRECT {2 SPACES } ANSWER. " : rem 223 

150 PRINT" {3 DOWN} {15 SPACES} {RVS } GOOD LUCK l{ OFF}" 

:rem 183 

160 X=RND ( -TI ) : POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : P 
0KEMC+6,129:P0KEMC+24,15 :rem 191 

170 READX, Y:IFX<0THEN194 irem 235 

175 Z=INT(X/256) :rem 148 

180 POKEMC+0, X-(Z* 256 ): POKEMC+1, Z :rem 177 

190 POKEMC+4 ,17: F0RX=1T0Y : NEXTX : POKEMC+4 , 16 

:rem 235 

192 FORX=1TO10: NEXTX :G0T01 70 : rem 41 

194 POKEMC+24,0 :rem 74 

200 PRINT" {ELK} {2 DOWN} {8 SPACES} (PRESS ANY KEY TO 
START) " :rem 245 

210 GETX$:IFX$=""THEN210 :rem 119 

220 FORX=0TO11:READZ,Y:S%(X,0)=Z:S%(X,1)=Y:NEXTX 

:rem 231 

300 S=0 : FORX=0TO9 :rem 21 

310 D1=INT(RND(1)*6)+1:D2=INT(RND(1)*6)+1 :rem 239 
320 Y=INT(RND(1)*5)+1:X$=MID$(CT$,Y,1) :rem 103 
330 PRINT" {CLR} ";X$; : FORY=0TO4 : PRINTA$ ; iNEXTY:FORY 

=0TO8:PRINTB$; : NEXTY : rem 223 

335 FORY=0TO4:PRINTA$; : NEXTY : rem 88 

340 Z$="{BLK}{H0ME}{6 down}" :FORY=0TO2:X$=DI$(DI%( 

D1-1,Y) ) :Y$=DI$(DI%(D2-1,Y) ) : rem 253 

350 PRINTZ$j"{7 RIGHT} ";X$;" {8 RIGHT} ";Y$;" 

{SHIFT-SPACE} ":Z$=Z$+"{3 D0WN}":NEXTY :rem 201 
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360 INPUT"{7 DOWN} HOW MANY{SHIPT-SPACE}SP0TS" ;X$ : 

Y=VAL ( X$ ) : IFY= ( D1+D2 ) THEN400 
370 PRINTCHR$ ( 147 ) : POKEVC+33 , : POKEMC+0 , : POKEMC+1 

,10:POKEMC+5,15 : rem 129 

375 POKEMC+6, 15 : POKEMC+24, 7 : POKEMC+4, 33 :FORZ=1TO10 

0:NEXTZ:POKEMC+4,32 : rem 1 

380 FORZ=1TO50 :NEXTZ : POKEMC+24, : POKEVC+33 , 1 

:rem 251 

390 GOTO500 :rem 106 

400 REM *** ANSWER CORRECT *** :rera 86 

410 S=S+1 :rem 212 

420 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 15 : POKEMC+6 , 15 : 
POKEMC+24, 10 :rem 171 

430 FORZ=8T01STEP-l :rem 187 

440 POKEVC+33 , Z : POKEMC+1 , ( 10-Z ) *5 : POKEMC+4, 17 

:rem 124 

450 FORy=lTO50:NEXTY: POKEMC+4, 16 :rem 12 

460 FORY=1TO10:NEXTY,Z : rem 164 

470 POKEMC+24, :rem 71 

500 NEXTX :rem 44 

600 Z=0:IFS>HSTHENHS=S:Z=1 : rem 174 

610 PRINT"{BLU1{CLR}{2 D0WN1{15 SPACES} {RVS} GAME O 
VERl {off} {DOWN}" : rem 104 

620 PRINT" {2 DOWN} {5 SPACES} YOUR SCORE =";S:rem 33 
630 PRINT" {2 DOWN} {5 SPACES} HIGH SCORE =";HS 

:rera 59 

640 IFZ=1THENPRINT"{2 DOWN} {5 SPACES} {RVS } YOU SET 

{space} A NEW HIGH 1 {off}" : rem 12 

650 POKEMC+0 , : POKEMC+1 , 0: POKEMC+5 , 79 : POKEMC+6 , 129 
: POKEMC+24, 15 : rem 245 

660 FORX=0TOll:Y=INT(S%(X,0)/256) : rem 162 

665 POKEMC+0, S%(X,0)-(Y*256) :rem 2 

670 P0KEMC+1,Y: POKEMC+4, 17 :rem 41 

675 F0RY=1T0S%(X,1):NEXTY: POKEMC+4, 16 :rem46 
680 FORY=1TO30:NEXTY,X : rem 168 

685 POKEMC+24, :rem 79 

690 PRINT"{BLK}{3 DOWN} {5 SPACES}PRESS {RVS}y{0FP} 
TO REPLAY" :rem 45 

700 PRINT" {2 DOWN} {5 SPACES}PRESS {RVS}N{0FF} TO Q 
UIT" :rem 239 

710 GETX$:IFX$=""THEN710 : rem 129 

720 IFX$="Y"THEN300 s rem 64 

730 IFX$<>"N"THEN710 : rem 120 

740 PRINTCHR$(147) :rem 22 

750 END :rem 115 

2000 DATA" {7 SPACES}", "{3 SPACES }q{ 3 SPACES}", "Q 
{6 SPACES}", "{6 SPACES }Q" , "qTS SPACES }Q","Q 
{2 SPACES }q{ 2 SPACES }Q" : rem 216 

2010 DATA0, 1,0, 2, 0,3, 2, 1,3, 4, 0,4, 4, 1,4, 5, 0,5 

:rem 80 



2020 DATA4817 , 300, 5407 , 300 , 4291 , 300, 2145 , 300 , 3215 , 
600,-1,-1 :rem 107 

2030 DATA4817, 175, 0,5, 4817, 175, 0,5, 4817, 175, 5407,1 
00 :rem 65 

2040 DATA6069, 200, 6069, 100, 5407 , 100, 6069, 100, 6430, 
100,7217,200 :rem 25 
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1 

Counting Game 

Skill area: Mathematics 
Level: 1,2 

Equipment required: None 
Modification: No 

The Counting House 

You, the king, are in the counting house. The counting house is 
hill of hearts, spades, triangles, and other shapes, which you've 
collected to decorate the kingdom. An accurate count of each 
shape must be made. 

How to Play 

This game teaches a child to recogriize the written and numeric 
characters from 1 to 99. Each number picked is shown as a word 
and also as a number of objects. For example, the word four, fol- 
lowed by a picture of four hearts, might appear. Look at the pic- 
tures and the word and then enter the correct number on the key- 
board (in this case, 4). 

Because people learn to count a little bit at a time, the level of 
difficulty can be adjusted when entering the maximum value at 
the beginning of the game. Beginning counters, for example, 
could choose a maximum of 10, and the largest number of objects 
presented in any question would be 10. The number of questions 
that will be asked can also be selected. To choose any number in 
these categories, type the ntimber and then press the RETURN 
key. 

When the word and the corresponding number of objects ap- 
pear on the screen, type the number on the keyboard, then press 
the RETURN key. Correct answers will be rewarded with songs; 
incorrect answers will be noted with a buzzing noise and a black 
screen. 

Scoring 

The score at the end of the game will tell you how many questions 
were asked, how many items were answered correctly, and the 
percentage of correct answers. 
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i ^ 
Counting Game ^ 

Remember, do not type the checksum number at the end of each line. For example, do 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in _ 

Appendix E. \^ 

1 REM COUNTING GAME :rem 150 

100 DIMNT%(4,10,1),W1$(18),W2$(7) :rein 148 

110 FORX=0TO4:FORY=0TO10:FORZ=0TO1 :rem 188 

120 READW:NT%(X,Y,Z)=W:NEXTZ,Y,X :rem 43 

130 PORX=0TO18:READX?:W1$(X)=X$:NEXTX :rein 55 W 

140 FORX=0TO7 ;READX$ ;W2$ (X)=X$ tNEXTX;G$="Q* ASZW " iC — 

$="{BLK}{RED}{PUR){GRN}{BLU}" :rem 20 

150 VC=53248 :POKEVC+32 , 14 :POKEVC+33 , 1 :PRINTCHR$ ( 14 

7) :X=RND(-TI) :rem 8 

160 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rein 73 
200 PRINT" { BLK} { DOWN} {13 SPACES } { RVS } COUNTING 

{2 SPACES] GAME {off}" :rem 41 vj 

210 PRINT" {3 DOWN} THIS GAME TEACHES YOU TO RECOGN 

IZE THE{2 SPACES} NUMBERS FROM 1 TO 99." ^ 

:rem 209 

220 PRINT" {2 DOWN} EACH NUMBER PICKED IS SHOWN" 

:rem 60 

230 PRINT" REPRESENTED AS A WORD AND AS A NUMBER 

{3 SPACES}OP OBJECTS." :rem 246 O 

235 PRINT" {2 DOWN} YOU MUST ENTER THE NUMBER REPRE 

SENTED." :rem 106 ^ 

240 PRINT" {2 DOWN} A GAME CAN CONSIST OF FROM 1 TO 

500 {5 SPACES } QUESTIONS. " :rem 4 ^ 

250 X=INT(RND(1)*5) :GOSUB8000 :rem 175 

260 PRINT" {3 DOWN} {7 SPACES }( PRESS ANY KEY TO STAR 

T)" :reni 124 O 

270 GETX$:IFX$=""THEN270 ;rem 131 

300 PRINTCHR$ ( 147 ) ; " { 3 DOWN} WHAT IS THE MAXIMUM N ^ 

UMBER TO BE USED?" :rem 242 

304 PRINT" (ENTER A NUMBER FROM 1 TO 99)" :rem 187 ^ 
310 X$="":INPUT"{3 DOWN} ";X$ :rem 137 r, 

320 RG=VAL(X$) :IFRG<1 OR RO99THEN300 :rem 150 

400 PRINT"{CLR}{3 down} how MANY QUESTIONS SHOULD ^ 

{space}be asked in{3 spaces}this game?" . . 

:rein 255 

410 PRINT" (ENTER A VALUE FROM 1 TO 500)" :rein 144 
420 X$="":INPUT"{3 DOWN} ";X$ :rem 139 ^ 

430 NQ=VAL(X$) :IFNQ<1ORNQ>500THEN400 :rem 206 

440 NC=0 :rein 150 

500 F0RLC=1T0NQ:PN=INT(RND(1)*RG)+1 : rem 145 

510 IFPN<20THENX$=W1$(PN-1) :GOTO550 :rem 79 

520 X=INT(PN/10) :Y=PN-(X*10) :X$=W2$(X-2) : rem 13 O 
530 IFY=0THEN550 :rem 182 

540 X$=X$+"-"+Wl$(Y-l) :rem 73 

Cj 
u 



550 X=INT{RND(1)*5)+1:Y=INT(RND(1)*6)+1 irem 186 
560 Y$=MID$ ( C$ ,X, 1 )+MID$ (G$ , Y, 1 ) +" { SHIFT-SPACE ) " 

:rem 194 

600 PRINT" {CLRl {down} {4 SPACES} QUESTION #";LC 

:rein 112 

610 PRINT"{4 D0WN}{4 SPACES }" ;X$ ;"{ 2 DOWN}" : rem 4 
620 F0RX=1T0PN:PRINTY$; !NEXTX:PRINT"{BLK} " 

:rein 113 

630 INPUT"{2 D0WN}{4 SPACES}H0W MANY 0BJECTS";X$ 

trem 115 

640 X=VAL(X$) ;IFX=PNTHEN700 : rem 161 

650 POKEVC+3 3,0: POKEMC+0 , : POKEMC+ 1,20: POKEMC+4 , 3 3 

! rem 205 

655 POKEMC+5,15:POKEMC+6,15:POKEMC+24,8 :rem 43 
660 FORX=1TO300:NEXTX: POKEMC+4, 32 :rem 57 

670 FORX=lTO30:NEXTX:POKEMC+24,0 : rem 7 

680 PRINTCHR? ( 147 ): POKEVC+3 3,1 :rem 9 

690 GOTO800 :rem 112 

700 X=INT(RND(1)*5) :GOSUB8000 :rem 175 

710 NC=NC+1 :rem 83 

800 NEXTLC ;rem 102 

900 PRINT"{CLR}{2 DOWN} {14 SPACES} {RVS} GAME 

{2 SPACES} OVER {off}" :rem 25 

910 PRINT" {3 DOWN} {3 SPACES}NUMBER OF QUESTIONS =" 

;NQ :rem 222 

920 PRINT" {down} {3 SPACES }NUMBER C0RRECT{6 SPACES} 

=";NC :rera 97 

930 X=INT( (NC*100)/NQ) :rem 216 

940 PRINT" {down} {3 SPACES } PERCENT CORRECT 

{5 SPACES}=";X; "{LEFT}%" : rem 179 

950 PRINT"{4 D0WN}{11 SPACES}PLAY AGAIN? ({RVS}Y 

{OFF}/{rVS}n{OFF})" :rem 247 

960 GETX?:IPX$=""THEN960 :rem 143 

970 IFX$="Y"THEN300 : rem 71 

980 IFX$<>"N"THEN960 :rem 134 

990 PRINTCHR$(147) : rem 29 

1000 END :rem 152 

8000 REM *** PLAY SONGS *** : rem 104 

8010 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 12 
9:POKEMC+24,15 : rem 35 

8020 FORY=0TO10 . :rem 123 

8030 Z=INT(NT%(X,Y,0)/256) :rem 187 

8040 POKEMC+0, NT%(X,Y,0)-(Z*256) : rem 2 

8050 POKEMC+1, Z: POKEMC+4, 17 : rem 90 

8060 FORZ=1TONT%(X,Y,1)*70:NEXTZ :rem 214 

8070 POKEMC+4, 16 :FORZ=1TO20:NEXTZ,Y : rem 198 

8080 POKEMC+24,0 :rem 124 

8090 RETURN : rem 177 

9000 DATA4050 , 2 , 5407 , 2 , 5407 , 2 , 5407 , 2 , 5728 , 1 , 6430 , 2 

:rem 206 
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9010 DATA7217,2,8583,1,8101,2,0,1,0,1 j rem 58 O 

9020 DATA4817, 2, 6430, 2, 7217, 2, 8101, 2, 6430, 2, 6430,1 

irem 202 * — ' 
9030 DATA8101,2,9634,2,9634,2,7217,4,0,1 srem 228 
9040 DATA6430, 2, 7217, 2, 8101, 2, 6430, 2, 6430, 2, 7217, 2 ^ 

:rem 202 

9050 DATA8101 , 2 , 6430, 2 , 8101 , 2 , 8583 , 2 , 9634, 4 

:rein 127 

9060 DATA5407, 2, 5728, 2, 6430, 2, 5407, 2, 5728, 2, 6430, 2 

,5407,2,5728,2 :rem 153 ^ 

9070 DATA6430,2,7217,2,4817,2 :rem 206 

9080 DATA4291 , 2 , 4291 , 2 , 4291 , 2 , 4817 , 1 , 5407 , 2 , 5407 , 2 

:rem 222 

9090 DATA4817, 1,5407, 2, 5728, 1,6430, 4, 0,1 :rem 232 
9200 DATAONE, TWO, THREE, FOUR,PIVE, SIX, SEVEN, EIGHT, N 

INE,TEN rrem 34 

9210 DATAELEVEN, TWELVE, THIRTEEN, FOURTEEN, FIFTEEN, S W 

IXTEEN J rem 68 

9215 DATASEVENTEEN, EIGHTEEN, NINETEEN :rein 143 ^ 

9220 DATATWENTY, THIRTY, FORTY, FIFTY, SIXTY, SEVENTY, E ^ 

IGHTY, NINETY trem 112 

LJ 
LJ 

o 
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1 

et the Treasure 

Skill area: Coordination 
Level: 1 

Equipment required: Joysticic 
Modification: Yes 

The Treasure Chest 

You have a treasure chest, but it's empty. The genie who gave you 
the treasure chest said he would help you fill it, but only if his in- 
structions are followed. In fact, there is a whole field full of treas- 
ures you may have if they are collected in the right order. 

How to Play 

The computer will scatter ten treasures, geometric shapes of vari- 
ous colors, arovmd the screen. Using a joystick, move tiie cursor 
to the treasure indicated at the top of the screen. When the cursor 
touches a treasure, the treasure wiU be moved to the chest at the 
foot of the screen. 

In addition to teaching coordination (use of the joystick) and 
shape recognition, "Get the Treasure" teaches you to match col- 
ors. If the item to find is a blue heart, for example, the heart you 
touch must also be a blue one. A red one or a purple one won't 
do. 

If you pick the right treasure, a musical tone will indicate that 
you've made a correct choice. Picking the wrong treasure will pro- 
duce a btizzing sound. 

Scoring 

At the end of the game, you will be told how many errors were 
made and how many seconds it took you to get all ten treasures 
into the treasure chest. You'll always win Get the Treasure — that 
is, always get all ten treasures unless you quit playing in mid- 
game. However, the score and your coordination can be improved 
by trying to reach all ten treasures in a shorter time period. This is 
the true object of the game. 

Get the Treasure 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 
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1 REM GET THE TREASURE :rem 65 ^ 

100 VC=53248:POKEVC+32,6:POKEVC+33,l:PRINTCHR$(147 

):LS=40 :rem 128 UJ 

105 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX : rem 72 
110 S1=((PEEK(53272)AND240)/16)*1024+160 :reiii 32 ^ 
120 Cl=55296+160:S2=Sl+770:C2=Cl+770 irem 131 

130 DIMT{9),CL(5),FT(9,1),NT%(11,1) : rem 61 

140 FORX=0TO9: READY :T(X)=Y:NEXTX :rem 106 

150 FORX=0TO5: READY :CL(X)=Y:NEXTX :rem 162 

160 FORX=0TO11:READY,Z:NT%(X,0)=Y:NT%(X,1)=Z:NEXTX ^ 

:rem 136 

170 GOSUB1000 :rem 217 ^ 

200 FORX=0TO9 :rem 26 

210 Y=INT(RND(1)*10) :FT(X,0)=T(Y) :rem 106 

220 Y=INT(RND(1)*6) :FT(X,1)=CL(Y) :NEXTX:ER=0 

:rem 139 

240 PRINT" {CLR}{RVS}{BLU}*********** GET THE TREAS ^ 
URE ***********{0FF} {BLK} " ; : rem 80 

250 PRINT" {2 D0WN} CCCC ************** *****CCCCCCCC ^ 
CCCCCCCCC "; :rem 4 

260 PRINT" I 17 DOWN} ************ { RED } TREASURE CHES 

T{BLK) ***********C "; -rem 86 U 

300 FORY=0TO9:GOSUB2000:POKES1+X,FT(Y,0) :P0KEC1+X, f, 

FT(Y,1) :NEXTY :rem211 
310 GOSUB2000:POKES1+X,42:POKEC1+X,0:J1=INT(X/LS) : 
K1=X-(J1*LS) :rem 245 

320 TI$=" 000000" :rem 247 O 

400 FORX=0TO9 :rem 28 

410 PRINT" {home} {2 DOWN} {2 SPACES}FIND — > ":POKES ^ 
1-69,FT(X,0) :P0KEC1-69,FT(X,1) :rem 237 ^ 

420 J2=J1:K2=K1:Y=PEEK( 56321) :rem 129 ^ 

425 IF(YAND1)=0THENJ2=J2-1 : rem 7 

430 IF(YAND2)=0THENJ2=J2+1 :rem 2 

440 IP(YAND4)THENK2=K2+1 :rem 154 

450 IF(YAND8)THENK2=K2-1 :rem 161 r, 

460 IFJ2<0THENJ2=0 :rem 41 _ 

470 IFJ2>16THENJ2=16 : rem 154 \^ 

480 IFK2<0THENK2=0 :rem 45 

490 IFK2>39THENK2=39 :rem 168 

500 IFJ1=J2ANDK1=K2THEN420 :rem 38 

510 Y=PEEK(S1+(J2*40)+K2) :IFY<>32THEN600 :rem26 ^ 
520 P0KES1+(J1*LS)+K1,32:P0KEC1+(J1*LS)+K1,1 

:rem 227 

525 POKES1+(J2*LS)+K2,42:POKEC1+(J2*LS)+K2,0 ^ 

:rem 236 

530 J1=J2:K1=K2:GOTO420 : rem 69 Lj 

600 Z=PEEK(C1+(J2*LS)+K2) :rem 128 

605 IFZ=FT(X,1)7VNDY=FT(X,0)THEN700 :rem 47 ^ 

Cj 
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610 ER=ER+1 : POKEMC+0 , : POKEMC+1 , 5 : POKEMC+4 ,33: POKE 
MC+5,15:POKEMC+6,15 : rem 133 

620 POKEMC+24,10 trem 117 

630 FORZ=1TO150:NEXTZ: POKEMC+4, 32 : rem 61 

640 POKEMC+24,0 :rem 70 

650 GOTO420 trem 106 

700 P0KES1+ ( J2 *LS ) +K2 , 42 : P0KEC1+ ( J2 *LS ) +K2 , 

trem 231 

705 POKESl+( J1*LS)+K1,32:P0KEC1+(J1*LS)+K1,1 

:rera 232 

710 P0KES2+(X*2),Y:P0KEC2+(X*2),Z :rem 149 

720 POKEMC+0 , : POKEMC+1 , : POKEMC+5 ,15: POKEMC+6 ,15: 
POKEMC+24,8 : rem 133 

730 FORy=20TO50STEP5 :rera 242 

7 40 POKEMC+ 1 , Y : POKEMC+4 ,17: F0RZ=1 TO80 : NEXTZ 

:rem 238 

750 POKEMC+4, 16 :FORZ=1TO20: NEXTZ, Y : rem 147 

760 POKEMC+24,0 : rem 73 

770 J1=J2:K1=K2 : rem 66 

780 NEXTX :rem 54 

800 PRINT" {CLR}{ DOWN} {RVS}{ 11 SPACES}G A M E 

{4 SPACESlO V E R{11 SPACES } {OFF }" ; :rem 66 
810 PRINT" {2 DOWN} {11 SPACES}T0TAL ERRORS 

{2 SPACES }= ";ER trem 252 

820 PRINT"{2 D0WN}{11 SPACES}T0TAL SECONDS =";INT( 

Tl/60) trem 6 

830 PRINT"{4 DOWN} {11 SPACES}WANT TO PLAY AGAIN?" 

trem 98 

835 PRINT" {down} {13 SPACES} ( REPLY {RVS}y{0FF} OR 

{RVS}n{OFF} )" trem 239 

840 GETX$:IFX$=""THEN840 trem 137 

850 IFX?="Y"THEN200 trem 67 

860 IFX$<>"N"THEN840 trem 128 

870 GOSUB3000:PRINTCHR$(147) trem 151 

880 END trem 119 

1000 PRINT "{ CLR } {BLU} {down} {RVS} ********** GET TH 

E TREASURE ********** {oFF}"; trem 168 

1010 PRINT"{2 D0WN}{BLK} TEN TREASURES WILL BE PLA 

CED on THE {5 SPACES} COMPUTER SCREEN." trem 45 
1020 PRINT" {2 DOWN} THE TOP OF THE SCREEN WILL SHO 

W YOU" trem 54 

1025 PRINT "THE TREASURE YOU MUST FIND" trem 76 

1030 PRINT" {2 DOWN} USE THE JOYSTICK TO MOVE YOURS 

ELF (*){3 SPACES} TO THE CORRECT TREASURE." 

trem 242 

1040 PRINT" {2 DOWN} AS YOU GET EACH ITEM, IT WILL 
{SPACE} BE MOVED {2 SPACES} TO YOUR TREASURE CHE 
ST." trem 110 
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Level ^ 

LJ 
LJ 

1050 PRINT" {2 down] GET ALL TEN ITEMS IN THE CHEST ^ 

AND{6 SPACES}Y0U WINl" : rem 169 

1060 GOSUB3000: PRINT" {down} {8 SPACES) (PRESS ANY KE 
Y TO START)"; : rem 65 

1070 GETX$:IFX$=""THEN1070 :rem 225 

1080 RETURN :rem 169 

2000 X=INT(RND(1)*680) .•Z=PEEK(S1+X) s rem 15 ^ 

2010 IFZO32THEN2000 :rem 124 

2020 RETURN :rem 164 

3000 POKEMC+0,0:POKEMC+1,0:POKEMC+5,79:POKEMC+6,12 O 

9:POKEMC+24,15 :rem 29 

3010 FORX=0TO11 :rem 117 <~J 

3020 Y=INT(NT%(X,0)/256) : rem 47 

3030 POKEMC+0,NT%(X,0)-(Y*256) .-rem 118 

3040 POKEMC+l,Y:POKEMC+4,17 :rem 83 , 

3050 FORY=1TONT%(X,1)*80:NEXTY : rem 74 

3060 POKEMC+4,16:FORY=1TO30:NEXTY : rem 58 ^ 

3070 NEXTX:POKEMC+24,0 : rem 71 

3080 RETURN :rem 171 LJ 

10000 DATA81, 83, 160, 90, 65, 88, 81, 95, 105, 102 : rem 70 
10010 DATA0,2,4,5,6,12 :rem 76 ^ 

10020 DATA6430, 2, 6430, 2, 6430, 2, 4817, 2, 5407, 2, 5407, 

2 :rem 248 ^ 

10030 DATA4817, 4, 8101, 2, 8101, 2, 7217, 2, 7217, 2, 6430, Q 
4 :rem 249 

o 
o 

\-j 

LJ 
LJ 
Cj 

LJ 
LJ 
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Level 

1 




n 
o 
o 
n 
n 
n 
n 
n 

^ Skill area: Coordination 
Level: 1 

/***) Equipment required: Joystick 
Modification: Yes 

n 

The Magic Show 

You're a famous magician, and you've learned how to take an 
empty canvas and turn it into a picture vdthout doing any work at 
all. Artists would like to know your secret, so they could paint 
1^ pictures without messing up their living rooms with sticky paint . 

They ask you to tell them how to uncover hidden pictures, but the 
^ secret is not for sale. Your magic is done for free, and just for 
friends. 

D How to Play 

This game of coordination requires only a joystick and a little 

patience. The computer will print a picture on the screen, camou- 
O flaged in the same color as the background of the screen. Try to 
^ uncover the picture by moving the cursor back and forth with a 

joystick to erase the background. A song wUl play to indicate the 
r*) game is over once every square in the picture field is uncovered. 
^ There are five pictures entered into the basic program. If you 

uncover part of a picture and realize you've seen it before, you can 
r*) press the fire button on the joystick to get a new picture. 

Hidden Picture 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

^ 1 REM HIDDEN PICTURE .Tem 221 

" 100 DIMCC%(9,1),NT%(22,1),JT%(10,1) 

^ 110 VC=53248:POKEVC+32,6:POKEVC+33,12:PRINTCHR$(14 

7) :rem 57 

114 ct$="{blk}{wht}{red}{cyn}{pur}{grn}{blu}{yel}" 

!LS=40 :rem 19 

r*) 118 MC=54272:PORX=MCTO54296:POKEX,0:NEXTX :rera 76 

^ 120 FORX=0TO9:FORY=0TO1:READZ:CC%(X,Y)=Z:NEXTY,X 

' ■ :rein 134 

^ 125 FORX=0TO22:FORY=0TO1:READZ:NT%(X,Y)=Z:NEXTY,X 

trem 210 

n 

r») 19 



n 



Leve! 



130 PRINT" (WHT) {down} {RVS}{12 SPACESIhIDDEN PICTU 
RE{12 SPACES} {off}" : rem 231 

140 PRINT" {2 down} USE THE JOYSTICK TO ERASE THE S 
CREEN" :rem 122 

150 PRINT" AND UNCOVER THE HIDDEN PICTURE. ": rem 51 

160 PRINT" {2 DOWN} STOP DOING THE CURRENT PICTURE 
{SPACE}BY" :rem 252 

165 PRINT" PRESSING THE FIRE BUTTON ON THE " 

:rem 57 

168 PRINT" JOYSTICK, OR BY UNCOVERING THE WHOLE 

{4 SPACES } PICTURE. " : rem 242 

170 GOSUB2000 :rem 218 

175 PRINT" {2 down} {7 SPACES }( PRESS ANY KEY TO STAR 
T)" :rem 112 

180 GETX$:IFX$=""THEN180 :rem 131 

190 M=((PEEK( 53272 )AND240)/16)*1024:C=55296 

:rera 244 

195 FORX=0TO10 :FORY=0TO1 :READZ : JT% (X, Y)=Z:NEXTY,X 

:rem 210 

200 SC=INT(RND(1)*10) :DC=0:JF=0 : rem 247 

210 POKEVC+32,1:POKEVC+33,CC%(SC,0) :rem 245 

220 X$=MID$(CT$,CC%(SC,0)+1,1) :PRINTX$; :PC=CC%(SC, 

1) :rem 161 

230 GOTO4000 :rera 146 

250 C1=INT(RND(1)*25) :R1=INT(RND(1)*LS) :rem 224 
260 CV=PEEK ( M+ ( CI *LS ) +R1 ) : POKEM+ ( C1*LS ) +R1 ,160: POK 

EC+(C1*LS)+R1,15 :rem 29 

270 IFCV<128THENCV=CV+128 : rem 252 

300 C2=C1:R2=R1:GOSUB8000 :reni 185 

350 IFJFTHEN1000 : rem 167 

360 IPC2<0THENC2=0 : rem 26 

370 IFC2>24THENC2=24 : rem 137 

380 IFR2<0THENR2=0 : rem 58 

390 IFR2>39THENR2=39 : rem 181 

400 IFC1=C2ANDR1=R2THEN300 :rem 34 

405 POKEM+(Cl*LS)+Rl,CV:POKEC+(Cl*LS)+Rl,PC:rem 19 
410 C1=C2 : R1=R2 : CV=PEEK ( M+ ( C1*LS ) +R1 ) : IPCV<128THEN 

CV=CV+128:DC=DC+1 : rem 241 

420 POKEM+ ( CI *LS ) +R1 , 160 i POKEC+ ( CI *LS ) +R1 , 15 

:rem 225 

430 IFDO998THEN1000 : rem 133 

440 GOTO300 :rem 100 

1000 REM *** PICTURE DONE *** : rem 227 

1005 GOSUB2000:POKEVC+32,6:POKEVC+33,15 :rem 33 
1010 PRINT"{CLR}{BLK}{3 DOWN} {4 SPACES } ANOTHER PIC 

TURE?" :rem 85 

1020 PRINT" {2 DOWN} {4 SPACES}PRESS {RVS}Y{0FF} FOR 
YES": PRINT" {2 DOWN} {4 SPACES} PRESS {RVS}N 

{off} for no" :rem 72 
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n 
n 
n 
n 

n 
n 
n 

n 
n 

n 
n 
n 
n 

n 
n 

n 

n 
n 
n 
^ 
n 
n 



1030 
1040 
1050 

1060 
1070 
2000 
2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
4000 
4010 
4100 

4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4205 
4207 
4210 



4220 



4230 
4240 

4250 
4300 

4310 



4320 



Level 



1 



GETX? : IFX$=" "THEN1030 
IFX$="Y"THEN200 
IFX$ <> "N"THEN1030 
PRINTCHR$(147) 

END 

REM *** PLAY A SONG *** 



:rem 217 
:reni 107 
:rem 208 

:rem 66 
:rem 159 

: rem 80 



POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 12 



9:POKEMC+24,15 

FORX=0TO22 

Y=INT(NT%(X,0)/256) 

POKEMC+0, NT% (X,0)-{Y*256) 

POKEMC+ 1 , Y : POKEMC+4 , 1 7 

FORY= 1 TONT% ( X , 1 ) * 90 : NEXTY 

POKEMC+4, 16: FORY=1TO30:NEXTY,X 

POKEMC+24,0 

RETURN 

K=INT(RND(1)*4)+1 
ONKGOTO4100 , 4300 , 4500 ,4700 



:rem 29 
:rem 119 

:rein 47 
rrem 118 

: rem 83 

: rem 75 
:rem 190 
:rem 118 
:rera 171 
:rem 168 
:rem 138 



PRINT" {CLR} {down} {10 SPACES}TULIPS AND WINDMI 



LLS{2 DOWN}" 
PRINTSPC(19) 
PRINTSPC(19) 
PRINTSPC(19) 
PRINTSPC(18) 
PRINTSPC(12) 
PRINTSPC(18) 
PRINTSPC(18) 
PRINTSPC(18) 
PRINTSPC(18) 
PRINTSPC(18) 
PRINTSPC(18) 
PRINTSPC(18) 



"1+3" 

"i+3" 
"1+3 " 

"ug+3i" 

"J7 +I+i7 +3' 

"Gi+3H" 
"Gg+3H" 
"Gg+3H" 
"Gi+3H" 
"G H" 
"G H" 
"G H" 



:rem 195 
:rem 25 
:rem 26 
:rem 27 
:rem 185 
:rem 95 
:rem 172 
:rem 173 
I rem 174 
:rem 175 
:rem 1 
:rem 6 
:rera 8 



PRINT" {2 SPACES }X{ 3 SPACES }X{ 3 SPACES }X 
{3 SPACES}X{3 SPACES}G H{2 SPACES}X{3 SPACES} 
X{3 SPACESTX{3 SPACESjX " :rem 231 

PRINT" M-N M-N M-N M-nT 2 SHIFT-SPACE}G H 
{SHIFT-SPACE1m-nTsHIFT-SPACE}M-N M-N M-N " 

:rem 104 

PRINT "E40 U3"; :rem 149 

PRINT" {3 down} {12 SPACES } DECORATE HOLLAND" 

:rem 23 

GOTO250 :rem 155 

PRINT" {CLR } {down} {5 SPACES}* {8 SPACES}* 
(8 SPACES}* {5 SPACES}* {8 SPACES}*" :rem 14 
PRINT" {2 SPACES}* {6 SPACES}* {9 SPACES}* 
{2 SPACES}* {4 SPACES}* {7 SPACES}* {3 SPACES}*" 

:rem 191 

PRINT" {7 SPACES}* {8 SPACES}* {9 SPACES}* 

{4 SPACES}* {5 SPACES}*" :rem 108 
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4330 PRINT"{2 SPACES}*{11 SPACES}*{6 SPACES}* 

{8 SPACES}* {3 SPACES}*" :rem 109 

4340 PRINT" {7 SPACES}* {3 SPACES}* {3 SPACES }UI 

{8 SPACES}* {10 SPACES}* " : rem 226 

4350 PRINT" *{13 SPACES}JK{2 SPACES}*{7 SPACES}* 

{3 SPACES}* {6 spaces!*" srem 4 

4360 PRINT" {3 SPACES}* {9 SPACES}* {7 SPACES}* 

{12 SPACES}*" :rem 70 

4370 PRINT" {13 SPACES}V{9 SPACES}" :rein 117 

4380 PRINT" {13 SPACES }I+i{ 9 SPACES}" : rem 70 

4390 PRINT" {6 SPACES }g2 +i{5 SPACES }g+3 

{2 SPACES}+{6 SPACES}+{7 SPACES}<>" :rem 195 
4400 PRINT" {6 SPACES }g2 +2iT5 SPACES }i+E 

{2 SPACES }i+i{ 2 SPACES }X{ 3 SPACES} i+i 

{7 SPACES }E2 +3" :rem 251 

4410 PRINT" {3 SPACES }++ E2 +3 {5 SPACES} i+3 

{2 SPACES }E+3{ 2 SPACES }i+3{ 3 SPACES }g+3 

{4 SPACES}V{2 SPACES}g2 +§{3 SPACES}V 

{2 SPACES}"^ :rera 44 

4420 PRINT" {3 SPACES }i2 +3 g2 +§{2 SPACES} A 
{2 SPACES }i+3{ 2 SPACES }i+3{ 2 SPACES }i+3 
{3 SPACES} i+3 {4 SPACES }B+3{ 2 SPACES} 
g2 +3 {3 SPACES} i+3 " :rera 36 

4430 PRINT" {2 SPACES} g3 +3 12 +3 {2 SPACES} 
g+3 12 +3 {2 SPACES} i+3 {2 SPACES} i2 +3 
{2 SHIFT-SPACE} i2 +3 {2 SPACES} i2 +3Q 
12 +3 {2 SHIFT-SPACE} i+3 " : rem 153 

4440 PRINT" {2 SPACES }i3 +3 { SHIFT-SPACE } i2 +3 

i-3 i5 +3 i2 +3 i6 +3 i4 +3 is +3 

i4 +3" :rem 231 

4450 PRINT" i3B +3" :rem 66 

4460 PRINT" i 40 U3"; :rem 154 

4470 PRINT" {2 DOWN} "; SPC( 11 ); "MOON OVER MANHATTAN" 

:rem 38 

4480 GOTO250 :rem 160 

4500 PRINT" {CLR} {DOWN} .{2 SPACES}. {3 SPACES}. 

{2 SPACES}. {4 SPACES}. .{3 SPACES}. {2 SPACES} 
.{2 SPACES}. {2 SPACES}. {2 SPACES}. {3 SPACES}. 
" :rem 102 

4510 PRINT" {2 SPACES}. .{3 SPACES}. {2 SPACES}. 

{4 SPACES}. .{2 SPACES}. {2 SPACES}. {3 SPACES} 

. .{2 SPACES}. .{2 SPACES}." :rera 241 

4520 PRINT". {2 SPACES}. {3 SPACES}. {4 SPACES}. 

{2 SPACES}. {2 SPACES}. .{2 SPACES}. . 

{2 SPACES}. {2 SPACES}. {2 SPACES}. . . " : rem 32 
4530 PRINT" . .{2 SPACES}. {2 SPACES}. {3 SPACES}. 

{2 SPACES}, .i+3 • .{2 SPACES}. . . 

{3 SPACES}. {2 SPACES}. " :rem 199 
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4540 PRINT". {3 SPACES}. {3 SPACES}. {3 SPACES}. 

{4 SPACES} §5 +3 {3 SPACES}. {2 SPACES}. 

{2 SPACES}. {2 SPACES}. {4 SPACES}" : rem 76 

4550 PRINT" {2 SPACES }.{ 2 SPACES}. {4 SPACES}. 

{3 SPACES}. g7 +3 .{2 SPACES}. .{2 SPACES}. 

{3 SPACES} . . " trem 245 

4560 PRINT". {3 SPACES}. {2 SPACES}. {4 SPACES}. 

{3 SPACES} -{5 SPACES }-{ 2 SPACES}. {2 SPACES}. 

{2 SPACES}. {2 spaces}. {4 SPACES}" : rem 202 
4570 PRINT " { 2 SPACES } . { 3 SPACES } . { 3 SPACES } . 

{2 SPACES}. Sgwi Q Q iQ3S .{2 SPACES}. . 

{2 spaces}. {2 SPACES}. ."^ : rem 19 

4580 PRINT". {3 SPACES}. {3 SPACES}. {3 SPACES}. 

{3 SPACES}- {2 SPACES}Z{2 SPACES}- . . . 

{3 SPACES}. {6 SPACES}" :rem 166 

4590 PRINT" .{3 SPACES}. .{3 SPACES}. {2 SPACES}. - 
j;^ -{2 SPACES}. .{2 SPACES}. {4 SPACES}. 

{3 SPACES}" :rem 80 

4600 PRINT" {2 SPACES}. .{4 SPACES}. {3 SPACES}. 

{2 SPACES} J*****K . {2 SPACES}. . 

{2 SPACES}. 1 2 SPACES}. {4 SPACES}" trem 142 
4610 PRINT". {2 SPACES}. {2 SPACES}. {4 SPACES}. 

{ 3 SPACES } . { 2 SPACES } - Z • • f 2 SPACES } . 

{2 SPACES}. {5 SPACES}. {2 SPACES}" : rem 34 

4620 PRINT" .{2 SPACES}. {3 SPACES}. {4 SPACES}. 

[2 SPACES } U*K jn. .{3 SPACES}. {3 SPACES}. 

{2 SPACES }TT2 SPACES}" trem 
4630 PRINT" {2 SPACES}. {2 SPACES}. {3 SPACES} 

{2 SPACES}. {3 SPACES}- {5 SPACES}- . . , 

{2 SPACES}. {4 SPACES}. {2 SPACES P trem 
4632 PRINT"{3 SPACES}. {3 SPACES}. {3 SPACES }Q 

**** gWi {5 SPACES}gQg ****Q . 

{4 SPACES } . { 5 SPACES'P 

4634 PRINT" {2 SPACES}. {2 SPACES}. {2 SPACES}. 

{ 2 SPACES } . { 2 SPACES} . -{ 5 SPACES } - . . 

{2 SPACES}. {3 SPACES}. {2 SPACES}." trem 
4636 PRINT" {2 SPACES}. {2 SPACES}. {3 SPACES}. 

{3 SPACES}. {2 SPACES }-{5 SPACES}- . . . 

{2 SPACES}. {3 SPACES}. " trem 
4640 PRINT" 140 U3"; trem 154 

4650 PRINT" { DOWN} ";SPC( 10); "SOME PEOPLE CAN MAKE" 

trem 236 

4660 PRINT"{D0WN} ";SPC( 9) ; "SNOWMEN IN THE WINTER." 

trem 189 

4670 GOTO250 trem 161 

4700 PRINT"{CLR}{3 down} {12 SPACES} g 16 @i" 

trem 162 

4710 PRINT" {11 SPACES } NNNNNNNNNNNNNNNNNM " trem 24 



238 



246 



irem 88 



86 



42 
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4720 PRINT "{10 SPACES } NNNNNNNNNNNNNNNNN 

{2 SHIFT-SPACE}M" trem 89 

4730 PRINT" {10 SPACES} gJi {15 SPACES} gJi 

{2 SPACES }gL3" :rem 191 

4740 PRINT" {10 SPACES }gJ3{ 15 SPACES }iJi 

{2 SPACES }gLr' :rem 192 

4750 PRINT" {10 SPACES }iJ3{ 15 SPACES }iJi 

{2 SPACES }iL3" srem 193 

4760 PRINT "{10 SPACES }|Ji{ 2 SPACES }g3 +i 

{5 SPACES} B3 +3 {2 SPACES }iJ5|{ 2 SPACES} 

iL3" :rem 166 

4770 PRINT" {10 SPACES }iJ3{ 2 SPACES} 13 +i 

{5 SPACES }g3 +i{2 SPACES }iJ3{ 2 SPACES} 

Bl3" :rem 167 

4780 PRINT "{10 SPACES }iJ3{ 10 SPACES} §3 +3 

{2 SPACES }iJ3{ 2 SPACES }iLi" : rem 182 

4790 PRINT"{10 SPACES}gJ3{l0 SPACES}i3 +1 

{2 SPACES }gJ3{ 2 SPACES }gL3" : rem 183 

4800 PRINT"{10 SPACES}iJi{l0 SPACES}i3 +3 

{2 SPACES }gJi{ 2 SPACES }gLa" : rem 175 

4810 PRINT" {3 SPACES }B34 Y3 " : rem 236 

4820 PRINT" {2 DOWN} {3 SPACES}D0 YOU LIVE IN A HOUS 

E LIKE THIS?" :rem 121 

4830 GOTO250 :rem 159 

8000 REM *** READ JOYSTICK *** :rem 52 

8010 Z=15-(PEEK(56321)AND15) :rem 244 

8020 C2=C2+JT%(Z,0) :rem 230 

8030 R2=R2+JT%(Z,1) : rem 6 

8040 IP(PEEK(56321)AND16)=0THENJF=1 : rem 247 

8050 RETURN : rem 173 

9000 REM *** SCREEN COLOR TABLE *** : rem 80 

9010 DATA2, 1,3, 6, 3, 0,4, 1,2, 1,5, 1,6, 1,6, 3, 7, 0,7, 2 

:rem 37 

9100 REM *** SONG DATA *** : rem 251 

9110 DATA8583, 1,9634, 2, 8583, 2, 8101, 2, 6430, 2, 5728, 2 

,7217,2,7217,1 : rem 156 

9120 DATA6430, 2, 8101, 2, 8101, 1,7217, 2, 8583, 2, 8583,1 

,9634,2 :rem 54 

9130 DATA8583, 2, 8101, 2, 6430, 2, 5728, 2, 7217, 2, 8583, 2 

,8583,2,5728,2 : rem 167 

9200 REM *** JOYSTICK TABLE *** :rem 131 

9210 DATA0, 0,-1, 0,1, 0,0, 0,0, -1,-1, -1,1, -1,0, 0,0,1, 

-1,1,1,1 :rem 188 
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Level 

atohmater 

Skill area: Memory and Logic 
Level: 2, 3, 4 

Equipment required: Joystick 
Modification: No 



The Matchmaker 

You're the kingdom's foremost matchmaker, and you've been 
hired by the king to keep him distracted from the problems he 
faces from day to day. The king's favorite pastime is throwing 
things on the floor. Then he c^ls you, the matchmaker, to pick 
everything up. 

Being an eccentric king, he doesn't want to make things easy 
for you. He has a rule: Whatever he throws on the floor must be 
picked up with an object that matches. Today he's scattered a 
bunch of flat objects on the floor and covered them with paper to 
hide their shapes. You have to remove all the objects, pair by pair. 
If you want, you can get others to help you. 

How to Play 

"Matchmaker" is a game for one to eight players, with four skill 
levels. Each player must uncover two squares and try to match the 
shapes underneath them. When plajdng in skill levels 2, 3, or 4, 
you must also match the color of the objects. 

To begin the game, press number 1, 2, 3, or 4 to indicate the 
skill level. The higher the number, the more objects will have to 
be matched. Next, press a number from 1 to 8 to indicate how 
many people are plajdng. The computer will take a few seconds 
to build the Matchmaker screen. 

Notice that the top of the screen will indicate two things. 
First, it will tell whose turn it is. Second, it will indicate whether 
this is your first or second choice during a turn. When the game 
begins, the top of the screen will tell you player #1 is about to ask 
his first question. 

To uncover a square, use the joystick to move the arrow 
directly imdemeath it. When you are in the right position, press 
the fire button. (Important: Hold down the fire button as long as 
you need to remember whaf s imdemeath the square, but don't 
press it a second time in the same location or itH count as your 
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next guess. This is particularly crucial when you're playing with 
more than one person. If you press the fire button a second time 
on your second turn, itH count as the next player's first guess.) 

When you make a match, a whooping noise will soimd and 
the matched squares will disappear. 

Scoring 

Matchmaker is not a game of high points. The total number of 
points is the number of pairs of objects in the game. If only one 
person is playing and there are 20 pairs of objects on the board, 
the score at the end will always be 20 unless the game is stopped 
in the middle. If more than one person is playing Matchmaker, 
the final score will tell how many matches were made by each 
player. 

Matchmaker 

Remember, do not type the checksum number at the end of each line. For example, do 
not type " : rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM MATCHMAKER :rein 242 

100 DIMHT(1,3),ST(9),CT(3),S%(7),NT%(20) :CB=828:VC 
=53248 :MC=54272 :reni 29 

110 SM=((PEEK(53272)AND240)/16)*1024:CO=55296-SM 

:rem 91 

120 FORX=54272TO54296:POKEX,0:NEXTX :reni 174 

130 FORX=0TO3 : READZ : CT ( X ) =Z : NEXTX : FORX=0TO9 : READZ : 
ST(X)=Z:NEXTX : rem 12 

140 FORX=0TO20 : READZ :NT% (X)=Z :NEXTX :GOSUB8000 

:rem 138 

200 PRINT"{CLR} {2 down} ENTER SKILL LEVEL: ": PRINT" 
{2 DOWN} {3 SPACES} {RVS}1 {off} - BEGINNING 
{D0WN}":PRINT"{7 SPACES}T0" : rem 70 

210 PRINT" {down} {3 SPACES} {RVS}4{0FF} - ADVANCED" 

:rem 176 

220 GETX$:IFX$=""THEN220 : rem 121 

230 IFX$<"1"ORX$>"4"THEN220 :rem 231 

240 SL=VAL(X$) :rera 34 

250 PRINT" {3 DOWN} ENTER NUMBER OF PLAYERS (1 TO 8 
)" :rem 244 

252 GETX$:IFX$=""THEN252 :rem 131 

253 IFX$<"l"ORX$>"8"THEN252 :rem 245 

254 NP=VAL(X$) :rem 38 

255 PRINT" {5 DOWN} {10 SPACES }( SCREEN BEING BUILT)" 

:rem 184 

260 FORX=1TONP:S%(X-1)=0:NEXTX:FORX=1TO(SL*20) : POK 
ECB+X-1,0: NEXTX :rem 127 

270 PORX=1TOSL:FORY=0TO9:FORZ=1TO2 :rem 9 
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280 GOSUB1000 : POKECB+Rl , ST ( Y) : POKECB+Rl+( SL*20 ) , CT 
(X-1) :NEXTZ,Y,X : rem 221 

300 PRINT"{CLR} {4 D0WN}{BLK}":F0RX=1T0SL*2 : rem 80 
310 PRINT"{5 spaces}"; :PORY=0TO9:PRINT" {pur} {RVS} 

{space} {off} {2 spaces}"; :NEXTY :rem 187 

320 PRINT" {down}" : rem 119 

330 NEXTX : M%=0 : AP=245 : POKESM+AP , 30 : POKESM+CO+AP , 

:rem 27 

400 W=l :rem 89 

410 F0RX=1T02: PRINT "{home} {down} PLAYER # 

{3 spaces} {3 LEFT} ";W:PRINT" {down} SQUARE #";X 

" :rem 100 

420 GOSUB2000:Y=(R*10)+C:Z=PEEK(CB+Y) :rem 148 

430 HT(X-1,0)=Z:HT(X-1,1)=PEEK(CB+Y+(SL*20) ) :HT(X- 

1,2)=Y ;rem 155 

440 HT{X-l,3)=AP-40 :rem 249 

450 POKESM+HT ( X-1 , 3 ) , HT (X-1 , ) : POKESM+CO+HT ( X-1 , 3 ) 

,HT(X-1,1) :rem 223 

455 IF(PEEK( 56321) AND16)=0THEN455 :rera 105 

456 POKESM+HT (X-1 , 3 ) , 160 : POKESM+CO+HT (X-1 , 3 ) , 4 

:rem 177 

457 NEXTX : rem 55 
470 IFHT(0,0)=HT(1,0)ANDHT(0,1)=HT(1,1)ANDHT(0,3)< 

>HT(1, 3)THEN475 : rem 116 

473 GOTO600 :rem 109 

475 FORX=0TO1 : rem 32 

480 POKESM+HT ( X , 3 ) , 3 2 : POKESM+CO+HT ( X , 3 ) , 1 : NEXTX 

:rem 142 

485 POKECB+HT(0,2),0:POKECB+HT(1,2),0 : rem 72 

490 POKEMC+0 , : POKEMC+1 , : POKEMC+5 ,15: POKEMC+6 , 15 : 
POKEMC+24,8 : rem 137 

492 FORY=40TO20STEP-5 irem 35 

494 POKEMC+1 , Y : POKEMC+4 ,17: FORZ=1TO30 : NEXTZ 

:rera 239 

496 POKEMC+4, 16:NEXTY:POKEMC+24,0 : rem 12 

500 S%(W-1)=(S%(W-1) )+l :rem 123 

510 M%=M%+1:IFM%=(SL*10)THEN700 : rem 204 

600 W=W+1 :rem 221 

610 IFW<=NPTHEN410 : rem 88 

620 GOTO400 :rem 101 

700 PRINT"{CLR}{BLK}{D0WN}{16 SPACES} { RVS } SCORES 

{off} {3 down}" :rem 6b 

710 F0RX=1T0NP:PRINT"{2 SPACES } PLAYER #";X;"=";S%( 

X-l); :PRINT"{D0WN}":NEXTX :rem 178 

720 GOSUB4000 :rem 221 

740 PRINTCHR$(147);"{3 DOWN} {2 SPACES} PLAY AGAIN ? 

" :rem 157 

742 PRINT" {2 DOWN} {5 SPACES} {RVS }Y{ OFF} = YES" 

:rem 187 
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744 PRINT"{2 D0WN}{5 SPACES} {RVS}N{ OFF } = NO" LJ 

:rem 94 

750 GETX$:IFX$=""THEN750 : rem 137 ^ 

760 IFX$="Y"THEN200 : rem 67 , 

770 IPX$<>"N"THEN750 : rem 128 

780 PRINTCHR$(147) :rem 26 ^ 

790 END :rem 119 

800 REM *** PLAY SONG :rem 103 LJ 

810 POKEMC+0,0:POKEMC+1,0:POKEMC+5,79:POKEMC+6,129 
:POKEMC+24,15 : rem 243 

820 FORX=0TO20 : rem 75 

830 Y=INT(NT%(X)/256) irem 169 ^ 

840 POKEMC+0,NT%(X)-(Y*256) : rem 240 ^ 

850 POKEMC+l,Y:POKEMC+4,17 : rem 41 _ 

860 FORY=1TO150:NEXTY:POKEMC+4,16 : rem 66 Cj 

870 FORY=lTO10iNEXTY,X:POKEMC+24,0 : rem 141 

880 RETURN : rem 128 Lj 

1000 W=0 :rem 133 

1010 R1=INT(RND(1)*(SL*20)) :IFPEEK(CB+R1)=0THENRET ^ 

URN :rem 184 

1020 W=W+1 :IFW<5THEN1010 : rem 140 

1030 R1=0 :rem 180 ^ 

1040 IFPEEK(CB+R1)=0THENRETURN : rem 121 

1050 R1=R1+1 :GOTO1040 : rem 157 Lj 

2000 REM *** READ JOYSTICK : rem 176 

2005 JQ=PEEK( 56321 ): IF (JQAND16)=0THEN2200 :rem 101 ^ 
2010 Z=AP:IF(JQANDl)=0THENZ=Z-40 i rem 194 

2020 IF(JQAND2)=0THENZ=Z+40 : rem 96 

2030 IF( JQAND4)=0THENZ=Z-1 : rem 50 

2040 IF( JQAND8)=0THENZ=Z+1 : rem 53 

2050 IFAP=ZORZ<240ORZ>839THEN2000 : rem 25 LJ 

2060 IFPEEK(SM+Z)=160THEN2000 :rem 183 1. 

2070 POKESM+AP,32:POKESM+CO+AP,l:POKESM+Z, 30:POKES W 

M+CO+Z,0 :rem 136 

2080 AP=Z:GOTO2000 : rem 39 ^ 

2200 IFPEEK(SM+AP-40) O160THEN2000 : rem 184 , , 

2210 Z=AP-245:R=INT(Z/80) :C=Z-(R*80) : rem 33 ^ 

2220 C=INT(C/3) : rem 39 ^ 

2230 RETURN : rem 167 

4000 PRINT" {2 DOWN} {12 SPACES} (PRESS ANY KEY)" LJ 

:rem 102 

4010 GOSUB800 :rera 221 ^ 

4015 POKE198,0 :rem 247 

4020 GETX$:IFX$=""THEN4020 : rem 221 ^ 

4030 RETURN : rem 167 

8000 POKEVC+32,6:POKEVC+33,l:PRINTCHR$(147) ; 

:rem 98 LJ 
8005 PRINT" {BLK} {DOWN} {RVS}{11 SPACES}** MATCHMAK 

ER **{11 SPACES} {off}" :rem 104 LJ 
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Level 

2 

8100 PRINT" {2 DOWN} MATCHMAKER IS A MEMORY GAME FOR 
1 TO 8" :rem 92 

8105 PRINT "PLAYERS, WITH FOUR SKILL LEVELS." 

:rem 219 

8110 PRINT" {2 DOWN} EACH PLAYER MUST UNCOVER TWO SQ 
UARES AND"; trem 50 

8115 PRINT"TRY TO MATCH THE SHAPES UNDER THEM." 

: rem 46 

8120 PRINT"SKILL LEVELS 2-4 MUST ALSO MATCH THE 

{4 SPACES} OBJECTS' COLOR." :rem 29 

8140 PRINT" {2 D0WN}M0VE UNDER A SQUARE WITH THE JO 
YSTICK," :rem 64 

8145 PRINT"AND EXPOSE IT WITH THE FIRE BUTTON." 

:rem 52 

8150 GOSUB4000 :rem 18 

8160 RETURN :rem 175 

9000 DATA0 , 8 , 5 , 14 , 65 , 42 , 81 , 83 , 86 , 87 , 78 , 90 , 95 , 105 

:reni 127 

9010 DATA6430, 8101, 8101, 8583, 6430, 7217, 8101, 7217, 6 
430,5728,4291 :rem 129 

9020 DATA4291 , 5407, 5728, 6430, 7217 , 6430, 5728, 6430, 4 
291,4291 :rem 149 
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Skill area: Memory and Lx)gic 
Level: 2, 3, 4 

Equipment required: None 
Modification: No 



The Notecrafter's Craft 

You are a notecrafter. If the orchestra gives a bad concert, the 
newspaper critic will blame the conductor, and the conductor will 
blame you. If s your job to make the orchestra sound good by get- 
ting the instruments to sound just right. 

So that you can tune the instruments, the computer will tell 
just how a note should sound. Then it's your responsibility to get 
the note made by the musical instrument to sound just like the 
computer's note. It takes talent — a good memory and a good 
musical ear — to get a note exactly right. 

How to Play 

The computer will sound a note. Then it will play the note made 
by your musical instrument. You must raise or lower the note 
until it sounds exactly the same as the note you remember from 
the computer. 

Raise or lower a note by pressing numbers on the computer 
keyboard. 

To make a note sound lower, press 1, 2, or 3: 

1 = lower the note just a little bit. 

2 = lower the note an average amount. 

3 = lower the note a lot. 

To make a note sound higher, press 7, 8, or 9: 

7 = raise the note a little bit. 

8 = raise the note an average amoimt. 

9 = raise the note a lot. 

The sound of your note can be changed as many times as 
necessary. When you think the note sounds the same as the com- 
puter's note, press 5 to indicate the note matches. 

Scoring 

When you press 5, the computer will play its note and then play 
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the note you picked. If the notes are exactly the same, you will be 
(-"i rewarded with music and flashing lights. 

Don't be surprised if your note doesn't exactly match the com- 
^ puter's note. Very few people have what is known as perfect 

pitch. If your note doesn't match the computer's note, the com- 

puter will tell you how close you came to matching it . If you get a 

perfect match, you're 100 percent correct. 
(— ^ The computer will look at the score and tell you whether your 

ear for music is not bad, normal, above average, good, very good, or ex- 
^ cellent. If your guess is very far off, the computer may not tell you 
r-) anything. If this happens, try again. 

If you don't get the note exactly right, or even close to it, don't 
^ give up. Music is like everything else. You certainly need talent, 
1^ but practice is just as important. 

n Notecrafter 

^M, Remember, do not type the checksum number at the end of each line. For example, do 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
^ Appendix E. 

1 REM NOTECRAFTER trem 82 

O 100 VC=53248:POKEVC+32,6:POKEVC+33,0:PRINTCHR$(147 

_ ) :rein 5 

~ 105 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rem 72 

^ 110 DIM NT%(37,1) :GOSUB1000 :rem 198 

115 PRINT"{WHT}{CLR}{DOVn)l}{RVSl{l0 SPACES}N O T E 
r*) {SPACEjC R A F T E R{9 SPACES }{ OFF }" ; :rem 45 

120 PRINT" {2 down} THIS GAME TESTS BOTH YOUR MEMOR 
O Y AND {4 SPACES} YOUR EAR FOR MUSIC." :rein 80 

130 PRINT" {2 DOWN} THE COMPUTER WILL PICK A NOTE A 
ND PLAY" :reni 182 

P» 135 PRINT" IT. {2 SPACES}THE COMPUTER WILL THEN PIC 

K A" trem 84 

r~) 140 PRINT" NOTE FOR YOU AND PLAY IT." : rem 84 

150 PRINT" {2 DOWN} YOU MUST RAISE OR LOWER THE PIT 
O CH OF" :rem 91 

^ 155 PRINT" YOUR NOTE UNTIL IT MATCHES THE NOTE" 

^ :rem 54 

1^ 160 PRINT" THE COMPUTER PICKED." : rem 150 

170 PRINT" {2 DOWN} {9 SPACES} (HIT ANY KEY TO START) 
r*) " :rem 195 

180 GOSUB1500 :rera 223 

O 190 DIMRT$(5) sFORX=0TO5:READX$:RT$(X)=X$:NEXTX 

:rem 139 

^ 200 REM *** SELECT THE NOTES :rem 30 

210 CN=INT(RND(1)*61)+10 :rem 32 

220 PN=INT(RND(1)*61)+10:IFCN=PNTHEN220 :rem 38 

n 
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230 P0KEVC+33,15:PRINT"{CLR}{BLK}{3 DOWN} LJ 

{12 SPACES} COMPUTER'S NOTE:" : rem 58 

240 X=CN:GOSUB2000:FORX=1TO1000:NEXTX :rein 84 ^ 

250 PRINT"{3 DOWN) {13 SPACES } PLAYER ' S NOTE:" 

:rem 82 

260 X=PN:GOSUB2000 : rem 71 

300 PRINT"{CLR}{2 DOWN} ENTER OPTION {2 DOWN}" 

:rem 25 ( > 

310 PRINT" {DOWN} {3 SPACES }{ RVS } 1 { OFF } LOWER PITCH 

{space} A SMALL AMOUNT" :rem 218 LJ 

320 PRINT" {DOWN} {3 SPACES} { RVS } 2 {OFF} LOWER PITCH 

{space} A MEDIUM AMOUNT" :rem 36 ^ 

330 PRINT" {DOWN} {3 SPACES }{ RVS } 3 { OFF } LOWER PITCH f, 

{space} A LARGE AMOUNT" :rem 208 

340 PRINT" {2 DOWN} {3 SPACES} {RVS}5 {OFF } *** NOTE M 

ATCHES ***" :rem 154 

350 PRINT"{2 DOWN} {3 SPACES }{ RVS } 7 { OFF } RAISE PITC U 

H A SMALL AMOUNT" :rem 224 

360 PRINT" {down} {3 SPACES }{ RVS } 8 { OFF } RAISE PITCH LJ 

{SPACE} A MEDIUM AMOUNT" :rem 25 , - 

370 PRINT" {down} {3 SPACES} {RVS } 9 {OFF} RAISE PITCH ^ 

{space} A LARGE AMOUNT" :rem 197 tj 

400 X=PEEK(197) :IPX=64THEN400 : rem 203 

410 IPX=56THENPN=PN-1 :GOTO500 : rem 50 

420 IFX=59THENPN=PN-5:GOTO500 :rem 58 

430 IFX=8THENPN=PN-10:GOTO500 :rem 49 LJ 

440 IFX=16THEN700 :rem 233 

450 IFX=24THENPN=PN+1:GOTO500 :rem 47 LJ 

460 IFX=27THENPN=PN+5:GOTO500 :rem 55 ^ 

470 IFX=32THENPN=PN+10:GOTO500 :rem 96 

480 GOTO400 :rem 105 

500 IFPN<10THENPN=10 :rem 202 

610 IFPN>70THENPN=70 :rem 218 LJ 

620 X=PN:GOSUB2000:GOTO400 :rem 78 

700 IFPNOCNTHEN800 :rem 150 ^ 

710 PRINT"{CLR} {2 down} {12 SPACES } CONGRATULATIONS 1 

" :rem 188 

720 PRINT" {3 down} {2 SPACES }Y0U PICKED THE VERY SA i_j 

ME NOTE AS" :rem 97 

725 PRINTSPC(ll) j"{DOWN}THE COMPUTER DIDll" 

:rem 183 

730 PRINT" {3 DOWN} {3 SPACES} YOU MUST BE A VERY GOO LJ 

D MUSICIAN 1 1" :rem 182 

740 PRINT "{3 DOWN} {8 SPACES}PRESS ANY KEY TO CONT ^ 

INUE" ;rem 5 

750 POKE 198,0 :rera 201 

760 GOSUB 1500 :rem 227 u 

770 GOTO 900 :rem 112 

800 PRINT"{CLR}{3 D0WN}{12 SPACES } COMPUTER ' S NOTE: LJ 
" :rem 136 

LJ 
LJ 
LJ 
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805 X=CN:GOSUB2000:FORX=1TO1000:NEXTX :reni 91 

810 PRINT"{3 D0WN}{13 SPACES } PLAYER ' S NOTE:" 

:rem 84 

815 X=PN:GOSUB2000 :rem 77 

820 IFPN<CNTHENX=CN-PN:GOTO840 rrem 195 

830 X=PN-CN :rem 140 

840 Y=100-INT((X*100)/60):IFY<1THENY=1 :rem 170 
850 PRINT" {3 DOWN} {11 SPACES}YOUR SCORE IS";Y;" 

{LEFT}%" :rem 221 

860 X=INT((100-Y)/10) :IPX<0THENX=0 :rem 232 

870 IFX>5THEN900 :reni 193 

880 PRINT" {3 DOWN} {9 SPACES}Y0UR EAR FOR MUSIC IS" 

:X$=RT$(X) :rem 53 

885 IFLEN(X$)<38THENX$=" "+X$+" ":GOT0885 srem 225 
890 PRINTX$; :rem 229 

900 PRINT" {4 DOWN} {11 SPACES} PLAY AGAIN ({RVS}Y 

{off} or {RVS}n{OFF})" irem 37 

910 GETX$:IFX$=""THEN910 :rem 133 

920 IFX$="Y"THEN200 :reni 65 

930 IFX$<>"N"THEN910 :rem 124 

940 PRINTCHR$ ( 147 ) :rem 24 

950 END :rem 117 

1000 FORX=832T0832+63:READZ:POKEX,Z:NEXTX :rein 118 
1010 POKEVC+0 , 40 : POKEVC+2 , 120 : POKEVC+4 , 200 : POKEVC+ 
6,22 :rein 165 

1020 POKEVC+1 , 40 : POKEVC+3 , 30 : POKEVC+5 , 20 i POKEVC+7 , 
10 :rem 71 

1030 POKEVC+16 , 8 : POKEVC+23 , 15 : POKEVC+27 , 15 : POKEVC+ 
28,0:POKEVC+29,15 : rem 235 

1040 FORX=0TO3:POKEVC+39+X,X+2:NEXTX : rem 21 

1050 FORX=0TO3:POKE2040+X,13:NEXTX : rem 91 

1100 FORX=0TO37 :FORY=0TO1 : READZ :NT% (X, Y)=Z :NEXTY,X 

:rem 2 

1110 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 1 2 
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1120 RETURN 

1500 POKEVC+2 1,15: POKEMC+24 ,15: X=0 

1510 Y=INT(NT%(X,0)/256) 

1520 POKEMC+0,NT%(X,0)-(Y*256) 

1530 POKEMC+l,Y:POKEMC+4,17 

1540 PORZ=1TONT%(X,1)*100:NEXTZ 

1550 X=X+1 :IFX>37THENX=0 

1560 POKEMC+4,16 

1570 P0RZ=1T07STEP2 

1580 Y=PEEK( VC+Z ) +8 : IFY>250THENY=10 
1590 POKEVC+Z,Y 
1595 NEXTZ 

1600 GETX$:IFX$=""THEN1510 
1610 POKEMC+24, 0: POKEVC+2 1,0 



:rem 1 
srem 164 
srem 201 
:rem 49 
:rem 120 
:rem 85 
srem 119 
srem 209 
srem 125 
srem 196 
irem 120 
srem 161 
srem 109 
srem 223 
:rem 96 
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1620 PRINTCHR$(147) : rem 68 

1630 FORX=1TO1000:NEXTX :rem 172 

1640 RETURN :rem 171 

1700 DATAl, 255, 248, 1,255, 248, 1,255, 248, 1,192, 56,1, 

192,56,1,255,248,1,192 :rera 15 

1710 DATA56, 1,192, 56, 1,192, 56, 1,192, 56, 1,192, 56,1, 

192,56,1,192,56,1,192,56 :rem 114 

1720 DATA15 , 193 , 248 , 31 , 195, 248, 63 , 199, 248, 127 , 143 , 

240,255,31,224,254 : rem 95 

1730 DATA31, 192, 124, 15, 128,0 :rem 137 

1800 DATA8101, 2, 8583, 2, 10814, 2, 5728, 1,5728, 2, 5728, 

2,5728,2,6430,2,5728,1 :rem 42 

1810 DATA8101, 2, 10814, 1,8583, 2, 11457, 1,6430, 2, 7217 

,1,8101,2,8583,1 :rem 230 

1820 DATA10814, 2 , 10814, 1 , 10814, 2 , 5728, 1 , 5728, 2, 572 

8,1,6430,2,5728,1,8101,2 :rem 120 

1830 DATA10814, 2 , 10814 , 2 , 8583 , 2 , 11457 , 1 , 6430, 2 , 721 

7,1 :rem 104 

1840 DATA8101, 2, 8101, 1,7217, 1,7217, 2, 8101, 3, 8101, 2 

:rem 192 

1900 DAT AEXCELLENT, "VERY GOOD" , GOOD, "ABOVE AVERAGE 
", NORMAL, "NOT BAD" :rera 177 

2000 POKEMC+0 , : POKEMC+1 , X : POKEMC+4 ,17: POKEMC+5 , 1 5 
:POKEMC+6,15 :rem 212 

2010 POKEMC+24,5 :rem 116 

2020 FORX=1TO800:NEXTX: POKEMC+4, 16 :rem 104 

2030 FORX=1TO50:NEXTX :rem 75 

2040 POKEMC+24,0 :rem 114 

2050 RETURN :rem 167 
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O Skill area: Language Arts 
Level: 2 

I) Equipment required: None 
^ Modification: Yes 

The Personal Story 

^ We all like to hear about ourselves, and children are no exception. 

^ In fact, children are especially impressed to see their names and 
their life stories in print. Children's book companies have made 
thousands of dollars on the premise that children will learn to 
read faster if they read stories about themselves. 

"Personal Story" is programmed with this in mind, but it 

^ really isn't a game for the child to play. Other than pressing a key 
on the computer keyboard to continue the story, the child has no 
input except reading along with the words, delighting in the 

^ story, and perhaps increasing his or her reading skills. 

^ How to Play 

Before your child sits down with this game, you need to enter the 
data for nine variables. Only then will the game tell a person- 
alized story. 

O As you type in the program, you can enter your child's per- 

sonal data in lines 10000-10100, or if you entered the program as 
it's listed here, you can change it by LISTing these lines, then in- 
/— j sert your own information . (Be sure the word DAIA follows the 
line number and that the information has quotation marks.) 
The lines and information needed are: 

10000 Enter the child's first name, 
n 10010 Enter the child's last name. 

10020 Enter BOY or GIRL. 
~ 10030 Enter HE or SHE. 
O 10040 Enter the child's age. 

10050 Enter the child's birthday — a month and date, for example, 
^ MAY 3RD. 

10060 Enter the child's street address. 

10070 Enter the child's city of residence. 

10080 Enter the first name of a good friend of the child. 

n 
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1D090 Enter the child's phone number. 
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10100 Enter the name of the chad's favorite toy. LJ 

You may want to enlist the child's help, or you may want to 
program the game as a surprise. 
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Personal Story 

Remember, do not type the checksum number at the end of each line. For example, do 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in j ^ 

Appendix E. 

1 REM PERSONAL STORY srem 26 ^ 

100 DIMNT%(14,1,7) :MC=54272:VC=53248 :rem 201 

105 POKEVC+32,4:POKEVC+33,l:PRINTCHR$(147):rem 243 
110 FORX=0TO7:Y=0 : rem 24 

120 READW,Z:NT%(Y,0,X)=W:NT%(Y,l,X)=Z:Y=Y+l!lFW<>0 

THEN120 :rem 223 LJ 

130 NEXTX:C$="{BLK){RED}{CYN}{PUR}{GRN}{BLU}{YEL}" 

:rem 15 ' 

135 FORX=54272TO54296:POKEX,0:NEXTX :rem 180 , , 

140 READN1$,N2$,SX$,PR$,AG$,BD$,AD$,CT$,F1$,P0$,FT ^ 

$ :rem 27 [_J 

150 X$=N1$+" "+N2$ :rem 48 

160 IFLEN{X$)>40THEN175 : rem 64 LJ 

170 Y$="{SHIFT-SP ACE} "+X$:X$=Y$+" {SHIFT-SPACE }":G0 

TO160 I rem 102 UJ 

175 X$=RIGHT$(X$,LEN(X$)-1) :rem 251 

180 PRINT"lBLK}{7 DOWN} " f SPC( 11 ); "THIS IS YOUR LIP ^ 

E1":PRINTSPC(16);"{3 DOWN } STARRING { 3 DOWN}" (_j 

:rem 220 

185 PRINTX$ :SS=2 :GOSUB8000 srem 120 LJ 

190 PRINT"{H0ME}"; :FORY=0TO998sX=INT(RND(l)*7)+l:X 

$=MID$(C$,X,1) srem 165 ^ 

200 PRINTX$;"{RVS} { OFF } " ; s NEXTY srem 203 , , 

210 P0KEVC+32,6sPRINT"{CLR} {BLK} {D0WN}{3 SPACES}TH ^ 

IS IS A STORY ABOUT A VERY NICE" : rem 99 Cj 

220 PRINT" {down} {3 SPACES }"; SX$ ; " NAMED ";N1$;"." 

srem 239 \ I 

230 PRINT" {3 DOWN} {3 SPACES }"; PR$ ; " HAD A BIRTHDAY 

ON" SPRINT" {down} {3 SPACES} "; BD$ ;" , AND" LJ 

srem 154 

240 PRINT "{down} {3 SPACES} IS ";AG$?" YEARS OLD." 

srem 11 LJ 
250 PRINT" {3 DOWN} {13 SPACES} {YEL}q{ SHIFT-SPACE }Q 

{SHIFT-SPACE}q{BLK} {3 SPACES}HAPPY" srem 254 ^ 
260 PRINT" {13 SPACES }-{ SHIFT-SPACE} -{shift-space}- , i 

{3 spaces} BIRTHDAY" srem 151 ^ 

270 PRINT"{12 SPACES} {RVS}{ RED} {7 SPACES}{0FF} <_j 

{2 SPACES} ";N1$ srem 8 

LJ 
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''^ 280 PRINT" {12 SPACES} {RVS} {red} {7 SPACES} {OFF} 

f— ) {2 SPACES }" ;N2$ ; "{BLK} 1" :reni 58 

290 SS=3:GOSUB8000:GOSUB7800 trem 188 

D 300 P0KEVC+32,2:PRINT"{CLR}{BLK}{2 DOWN} " ;SPC( 11 ) ; 

Nl$;" LIVES IN" irem 228 

(I 305 PRINTSPC(11);"{D0WN}A NICE HOUSE AT" :PRINTSPC( 

11);"{D0WN}";AD$ :rem 155 

310 PRINTSPC(11);"{D0WN}IN ";CT$;"." trem 132 

^ 315 PRINTSPC(11);"{BLU}{2 D0WN}{5 SPACES } RRRRRRRRR 

:rein 225 

m 320 PRINTSPC(11);"{4 SPACES } NMMMMMMMMMM " :rem 10 

330 PRINTSPC(ll) ;"{3 SPACES } N I 2 SPACES i MMMMMMMMMM " 

n trem 11 

^ 340 PRINTSPC(ll) ;"{2 SPACES } Y***+ 

1 ) :rein 196 

^ 345 PRINTSPC(ll) ;" {2 SPACES}Y{3 SPACES}-{9 SPACES} 

T" ~ ~ I rem 203 

r") 350 PRINTSPC(ll) ;"{2 SPACES }y{ 3 SPACES}- {BLK} 

i2 +3 {2 SPACES} B+i{BLU} {3 SPACES }T" 

:rein 104 

360 PRINTSPC(11);"{2 SPACES}y{3 SPACES}- {BLK} 
12 +3 {2 SPACES }g+3{BLU} {3 SPACES }T" 
/-mk :rein 105 

370 PRINTSPC(ll) ;"{2 SPACES }y{ 3 SPACES }-{ 5 SPACES} 
(— ) {BLK}i+3{BLU}{3 SPACES}T" trem 30 

380 PRINTSPC ( 10 ) ; " EEEEEEEEEEEEEEEEEEEEEE { BLK} " ;PRI 
r-) NTSPC(ll) ;AD$ :reni 1 

390 SS=4:GOSUB8000:GOSUB7800 :rem 190 

O 400 POKEVC+32,6:PRINT"{CLR}{BLK}{DOWN}";SPC(08);N1 

_ HAS A GOOD FRIEND" :rem 194 

405 PRINTSPC (08); "{down} NAMED ";F1$;"." :rem 61 
/-^ 410 PRINTSPC (08); "{3 D0WN}THINKING ABOUT GOOD" 

:rem 115 

O 415 PRINTSPC(08) ; "{D0WN}FRIENDS MAKES" : PRINTSPC (08 

);"{D0WN}";N1$;" SMILE." :rein 205 

n 420 PRINTSPC(ll) ; "{RED} {3 DOWN}" :rein 138 

430 PRINTSPC(11);"{3 SPACES}g03 i03{D0WN}" 
'I :rem 191 

>— , 440 PRINTSPC(11);"{3 SPACES }q{ SHIFT-SPACE }Q 

{7 SPACES}";F1$ :rem 85 

D 450 PRINTSPC(11);"{4 SPACES}- {9 SPACES} MAKES" 

;rem 140 

O 460 PRINTSPC(11);"{4 SPACES }+{ 8 SPACES} ";N1$ 

:rem 248 

n 480 PRINTSPC(11);"{2 SPACES} J***K { 7 SPACES} SMIL 

_ El" :rem 177 

490 SS=6:GOSUB8000:GOSUB7800 :rem 193 

r-\ 500 PRINT" {CLR} {BLK} {2 DOWN} "SPC( 12 ) ; Fl$ ; " WILL":P 

RINTSPC(12); "SOMETIMES CALL" rrem 132 

n 
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505 PRINTSPC(12);N1$; " ON" : rem 187 LJ 

510 PRINTSPC(12) ;"THE TELEPHONE. {2 DOWN}" :rem 17 

520 F0RX=1T014:PRINT"{12 SPACES} {RVS} {YEL} ^ 

{15 SPACES }":NEXTX trem 216 p, 

530 PRINT" {home} {BLK} {11 D0WN}{14 RIGHT}PH0NE 

{2 SPACES} BOOK" :reni 2 

532 PRINT"{2 D0WN}{14 RIGHT} "; N1$ : PRINT" { 14 RIGHT} 

";N2? :rera 129 LJ 

540 PRINT"{2 DOWN} {14 RIGHT}" ;P0$ :rem 32 

550 SS=5:GOSUB8000:GOSUB7800 :rem 189 ^ 

600 POKEVC+32,12:POKEVC+33,0 :reni 108 

604 PRINT"{CLR} {WHT} {D0WN}";SPC(9) ; "THEN ";F1$:PRI 

NTSPC(9) ; "{D0WN}AND ";N1$ :rem 187 ^ 

606 PRINTSPC(9) ;"{D0WN}WILL DO SOMETHING FUN" 

:rem 139 L_J 
610 PRINTSPCO);" {down} LIKE WATCHING THE MOON" 

:rem 184 LJ 
615 PRINTSPC(9);"{D0WN}C0ME UP 0VER{D0WN} " tPRINTSP 

C(9);CT$;"." :rem 25 ^ 

620 PRINT" {2 DOWN} {4 SPACES}* {8 SPACES}* {5 SPACES} 

*{6 SPACES}* {4 SPACES}* {4 SPACES}* " :rem 135 
625 PRINT" {2 SPACES}* {6 SPACES}* {2 SPACES}* LJ 

{7 SPACES}* {4 SPACES}* {4 SPACES}* {4 SPACES}*" 

:reni 148 ^ 
628 PRINT"*{3 SPACES}*{2 SPACES}*{6 SPACES}* 

[2 SPACES}* {5 SPACES}* {3 SPACES }Ul{ 4 SPACES}* ^ 

{4 SPACES}*" srem 95 ^t 

630 PRINT" {3 SPACES}* {6 SPACES}* {3 SPACES}* 

{5 SPACES}* {2 SPACES}* {3 SPACES }JK *{3 SPACES} [_j 

*{4 SPACES}*" :rem 79 

640 PRINT"{5 SPACES }g+3{ SHIFT-SPACE }i+i {2 SHIFT-SP LJ 

ACE}E+i i+3{4 SPACES }i+i {5 SPACES }i+3{ SHIFT-SP 

ACE}i+3 i+i{2 SPACES }i+a{ 2 SHIFT-SPACE} 12 +3 ^ 

{SHIFT-SPACE} g+i" :rera 147 

650 PRINT" {3 SPACES} i+i E3 +3 B2 +3 i2 +i 

{2 SHIFT-SPACE} |3 +3 {4 SHIFT-SPACE} i5 +i (_j 

{2 SPACES}g2 +3 {shift-space} §2 +3 

{ SHIFT-SPACE }g +3" :rem 10 LJ 

660 PRINT" {3 SPACES}i34 +3" :rem 121 

670 SS=0:GOSUB8000:GOSUB7800 :rem 187 ^ 

700 P0KEVC+32,13:P0KEVC+33,1:PRINT"{CLR}{BLK} . , 

{2 D0WN}"fSPC(9);"IF ";Fl$ : rem 78 ^ 

710 PRINTSPC(9);"{D0WN}IS BUSY, ";N1$ : rem 14 i_j 

715 PRINTSPC(9);" {down} WILL PLAY WITH A" :rem 21 
720 PRINTSPC(9);" {down} FAVORITE TOY LIKE A":PRINTS LJ 

PC(9);"{D0WN}";FT$;"." : rem 85 

730 PRINT" {down} ":F0RX=1T09:PRINT" {red} {10 SPACES} ^ 

{RVS}{19 spaces} {off} ":NEXTX :rem 219 

740 PRINT"{BLK}{H0ME}{15 DOWN} {15 RIGHT} TOY CHEST 

{BLK}" :rem 196 
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750 SS=1:GOSUB8000:GOSUB7800 :rem 187 

800 POKEVC+3 2,10: PRINT " { CLR} { BLK } { DOWN } " ; SPC ( 9 ) ; " G 

OOD FRIENDS AND FUN" :reni 214 

805 PRINTSPCO) ; "TOYS MAKE EVERY DAY" : rem 239 

810 PRINTSPC(9) ; "SEEM LIKE CHRISTMAS" :PRINTSPC( 9) ; 

"AT THE ";N2$ : rem 29 

815 PRINTSPCO) ; "HOUSE. {2 DOWN}" :rem 238 

820 PRINTSPC(9);"{YEL}{10 SPACES}Z" :rem 142 

830 PRINTSPC(9);"{GRN}{9 SPACES} IrVS}£ i*§" 

:rera 207 

840 PRINTSPCO); "{8 SPACES} {RVS}£{ 3 SPACES} 1*3" 

:reni 178 

850 PRINTSPC(9) ; "{8 SPACES} {RVS} {5 SPACES}": rem 43 
860 PRINTSPCO) ; "{7 SPACES} { RVS }£{ 5 SPACES}!*!" 

:rem 180 

870 PRINTSPC(9) ; "{7 SPACES }{ RVS }{ 7 SPACES}": rem 45 
875 PRINTSPCO); "{7 SPACES} {RVS} {7 SPACES}": rem 50 
880 PRINTSPC(9);"{6 SPACES} { RVS }£{ 7 SPACES} i*i 

{BLK}" :rem 70 

885 PRINTSPC(9) ;"{10 SPACES}-" :rem 254 

890 PRINTSPCO); "{10 SPACES}-" :rem 250 

900 PRINTSPCO); "{10 SPACES}-" :rem 242 

910 SS=7:GOSUB8000 :rem 54 

920 FORX=832T0832+63:READZ:POKEX,Z:NEXTX :rem 80 
925 SS=-1:GOSUB7800:Y=58 :rem 167 

930 POKEVC+0,50:POKEVC+1,Y:POKE2040,13 :rem 242 
940 POKEVC+16,0:POKEVC+23,1:POKEVC+29,1 : rem 55 
950 POKEVC+28,0:POKEVC+39,6:POKEVC+21,1 :rem 63 
960 PRINT" {home} "; :F0RX=1T024 :rem 174 

970 P0KEVC+l,Y:Y=Y+8 :rem 213 

980 PRINT" {BLK} {RVS} {40 SPACES }{ OFF }" ; :rem 225 
990 F0RZ=1T075:NEXTZ,X :rem 183 

1000 POKEVC+3 3, 0:POKEVC+21,0:SS=. 3 :rem 224 

1010 POKEMC+0 , : POKEMC+1 , : POKEMC+5 ,11: POKEMC+6 , 13 
:POKEMC+24, 15 :Y=10: PRINT" {HOME}"; :rem 96 

1020 F0RX=1T0111 :rem 166 

1030 POKEMC+1, INT (Y) :Y=Y+SS:P0KEMC+4, 17 :rem 134 
1040 Z=INT(RND(1)*6)+2:X$=MID$(C$,Z,1) : rem 71 

1050 PRINTX$;"THE END{2 SPACES} ";: POKEMC+4, 16 

:rem 44 

1055 IFX>55THENSS=-.3 :rem 250 

1060 NEXTX :rem 94 

1070 POKEMC+24,0:POKEVC+32,6:POKEVC+33,15 :rem 141 
1080 PRINT "{CLR} {BLK}" :rem 189 

1090 END trem 161 

7800 PRINT "{HOME} {24 DOWN} {12 SPACES }( PRESS ANY KE 
Y) " • : rem 53 

7810 GETX$:IFX$=""THEN7810 :rem 241 

7815 IFSS<0THENRETURN s rem 133 
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7820 PRINT"{H0ME}"; :F0RY=1T024:X=INT(RND(1)*7)+1:X ^ 
$=MID$(C$,X,1) :reni 153 , , 

7830 PRINTX$;"{RVS}{40 SPACES} {OFF} " ; :rem 57 ^ 

7840 FORZ=lTO40iNEXTZ,Y :rem 225 Q 

7850 RETURN :rem 180 

8000 POKEMC+0,0:POKEMC+l,0:POKEMC+5,79iPOKEMC+6,12 LJ 

9:POKEMC+24,15:Y=0 :rem 34 

8010 Z=INT(NT%(Y,0,SS)/256) :rem 7 O 

8020 POKEMC+0,NT%(Y,0,SS)-(Z*256) :rem 78 

8030 POKEMC+l,Z:POKEMC+4,17 :rem 88 

8040 FORZ=1TONT%(Y,1,SS)*90:NEXTZ : rem 36 ^ 

8050 POKEMC+4,16:FORZ=1TO10:NEXTZ : rem 62 

8060 IFNT%(Y,0,SS)>0THENY=Y+1:GOTO8010 :rem 32 LJ 

8070 POKEMC+24,0 :rem 123 

8080 RETURN :rem 176 LJ 

9000 DATA4291, 2, 4291, 2, 6430, 2, 6430, 2, 7217, 2, 7217, 2 

,6430,4,5728,2,5728,2 :rem 232 ^ 

9010 DATA5407, 2, 5407, 2, 4817, 2, 4817, 2, 4291, 4, 0,1 

:rem 61 

9020 DATA7217, 2, 8583, 4, 7217, 2, 5728, 2, 5407, 2, 5728, 2 
,6430,2 :rem 68 

9030 DATA6430,2,5407,2,4291,4,0,1 : rem 128 LJ 

9040 DATA481 7 , 2 , 5407 , 2 , 6430 , 2 , 6430 , 2 , 6430 , 2 , 6430 , 2 

srem 207 

9050 DATA5407, 2, 4817, 2, 4050, 2, 4817, 2, 6430, 8, 0,1 

:rein 59 

9060 DATA4817, 1,4817, 1,5407, 2, 4817, 2, 6430, 2, 6069, 4 
,4817,1 :rem 68 

9070 DATA4817, 1,5407, 2, 4817, 2, 7217, 2, 6430, 4, 0,1 Lj* 

:rem 64 

9080 DATA6430 , 2 , 6430 , 2 , 6430 , 2 , 4817 , 2 , 5407 , 2 , 5407 , 2 

,4817,4,8101,2,8101,2 trem 222 , . 

9090 DATA7217,2,7217,2,6430,4,0,1 :rem 136 ^ 

9100 DATA4291, 2, 4291, 1,4817, 2, 4817, 1,5407, 2, 6430, 2 Lj 
,5407,2 srem 49 

9110 DATA4291, 2, 7217, 2, 4817, 2, 5728, 1,5407, 2, 4291, 2 Lj 

:rem 152 

9120 DATA10814,3,9634,3,1,1,8101,2,8583,3,8101,2,7 ^ 
217,2,6430,2,8101,2 srem 111 , , 

9130 DATA4817,2,5407,2,6430,4,0,1 srem 133 

9200 DATA4291, 2, 4291, 2, 4291, 2, 5728, 1,5728, 1,5728, 2 LJ 

:rem 229 

9210 DATA5407, 2, 5728, 2, 6430, 2, 7217, 2, 7647, 2, 6430, 2 Lj 

,7217,2,0,1 srem 243 

10000 DATA" JOHN" srem 126 ^ 

10010 DATA"DOE" srem 40 

10020 DATA"BOY" -rem 59 ^ 

10030 DATA"HE" -rem 223 

10040 DATA" 7" srem 138 
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10050 DATA"DECEMBER 31ST" 

10060 DATA" 1605 MAPLE STREET WEST" 

10070 DATA"NEW YORK CITY" 

10080 DATA "SANDRA" 

10090 DATA"582-1234" 

10100 DATA"ELECTRIC TRAIN" 

20000 DATA60, 0,0, 24, 124, 0,24, 130,0, 

,0,24,130,0,24,124 
20010 DATA0, 24, 16, 0,31, 255, 0,15, 255 

0,0,59,128,0,59,128 
20020 DATA0, 56, 0,0, 254, 0,0, 198, 0,3, 

,3,1,128,7,1,192,0 



:reni 150 
:rein 170 
:rem 190 
: rem 16 
:rein 238 
:rein 25 
25,171,0,24,146 
:rem 245 
,0,0,59,0,0,59, 
:rem 70 
199,128,3,1,128 
srem 21 
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pelling Bee 

Skill area: Language Arts 
Level: 2, 3, 4 

Equipment required: None 
Modification: Yes 

The Mighty Bee 

If there's such a thing as a guardian angel of spelling, the spelling 
bee is it. As long as you're doing a good job at your spelling, shell 
stay around and watch you. If you don't do well, though, she'll 
lose strength and slowly disappear. The object of "Spelling Bee" 
is to guess the letters of words the bee gives you before she dis- 
appears. If you guess a word correctly, shell return in all her glory 
for the next one. 

How to Play 

The computer will pick a word and tell you how many letters it 
contains. You must guess the word by selecting a letter at a time. If 
you pick more than 11 incorrect letters, the spelling bee will 
disappear. 

To begin play, choose a skill level as listed below: 

1 = Beginner 

2 = Intermediate 

3 = Advanced 

Press the appropriate number and the game begins. A line of 
blank spaces appears on the screen. Each blank indicates a letter 
in the word. You should type a letter you think may be in the 
word. 

When you type a letter, one of two things will happen. If the 
letter belongs in the word, it will appear in the right space. If it 
does not belong in the word, the bee will buzz, the screen will 
temporarily go black, and the letter will appear on the bottom of 
the screen. Each time you make an incorrect guess, a little bit of 
the spelling bee will disappear. If you guess 11 incorrect letters, 
the correct word will appear. But the spelling bee will be gone — 
vmtil the next rovmd. 

Scoring 

No point score is given in Spelling Bee. Either the correct word is 
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* guessed by the player, or it isn't. At the end of a round, the com- 
^ puter will ask if you want to play again. If you indicate you do not 

want to play again, the computer will teU you how many words 
LJ were guessed correctly. Then the computer will teU you how 
^ many words you missed. 

^ Spelling Bee 

Remember, do not type the checksum number at the end of each line. For example, do 
' not type ":rem 123." Please read the article about the "Automatic Proofreader" in 

Appendix E. 

^ 1 REM SPELLING BEE : rem 63 

100 NW%=40:VC=»53248:MC=54272 :rem 29 

105 POKEVC+32,15:POKEVC+33,ljPRINTCHR$(147):rem 37 
(-J 106 FORX=54272TO54296tPOKEX,0iNEXTX jrem 178 

110 DIM NT%(11),WT${IIW%-1),WI$(19) srem 5 

^ 120 S1=((PEEK(53272)AND240)/16)*1024:S2=55296 

ij :rem 102 

^ 130 PORX=0TO11:READZ:NT%(X)=Z:NEXTX jrem 7 

140 PRINT " t BLK }{ DOWN }{RVS}{ 14 SPACES } SPELLING BEE 
{14 SPACES} {off}"; :rem 16 

LJ 150 PRINT" {2 D0WN}THE COMPUTER WILL SELECT A WORD 

{SPACE}AND SHOW"; :rem 157 

^ 160 PRINT"YOU THE NUMBER OP LETTERS IT CONTAINS." 

:reni 241 

^ 170 PRINT" {2 DOWN} YOU MUST GUESS THE WORD BY SELEC 

(_j TING ONELETTER AT A TIME." :rem 147 

180 PRINT" {2 DOWN} IF YOU PICK MORE THAN 11 INCORRE 
UJ CT" I rem 168 

190 PRINT "LETTERS, THE SPELLING BEE WILL DISAPPEAR 
^ AND YOU WILL LOSE THAT ROUND." :reni 184 

200 GOSUB2500:PRINT"{2 DOWN} {8 SPACES} (PRESS ANY K 
^ EY TO START)" trem 230 

210 GETX$:IFX$=""THEN210 :rem 119 

220 PRINTCHR$(147);"{3 DOWN} {2 SPACES} ENTER SKILL 
\ ) { SPACE} LEVEL : " : rem 112 

230 PRINT" {3 DOWN} {4 SPACES }{ RVS } 1 { OFF } BEGINNER": 
LJ PRINT" {3 DOWN} {4 SPACES }{ RVS } 2 { OFF } INTERMEDIA 

TE" :rem 71 

^ 240 PRINT"{3 DOWN} {4 SP ACES } { RVS } 3 { OFF } ADVANCED" 

J , :rem 167 

250 GETP$ :IFP$=""THEN250 trem 111 

O 260 IFP$<"1"ORP$>"3"THEN250 : rem 220 

270 X=(VAL(P$)-1)*NW%:IFX=0THEN290 : rem 209 

L_J 280 F0RY=1T0X:READX$:NEXTY : rem 231 

290 F0RX=1T0NW% :READX$ :WT$ (X-1 )=X$ :NEXTX:WU=0 
>— ' :rem 116 

300 WU=WU+1 :rem 132 

^ 310 X=INT(RND(1)*NW%) :WO$=WT$(X) :IFWO$="$"THEN310 

\_j '.rem 115 
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320 WT$(X)="?":LW%=LEN(WO$) :rem 235 

330 FORX=0TOLW%-1 :rem 11 

340 WI$(X)=MID$(W0$,X+1,1) :NEXTX srem 104 

350 LC%=0 :OF%=921 : BC%»0 :GOSUB1000 : LW%-LW%-1 

:rem 183 

400 GET X$:IPX$=""THEN400 :rem 121 

410 X=ASC(X?) :IFX<65ORX>90THEN400 :rem 249 

500 HI=0:FORY=0TOLW%:IFWI$(Y)<>X$THEN530 :rem 217 
510 HI=l:WI$(Y)="§":POKESl+720+UL+(Y*2),X-64 

:rem 171 

520 LC%=LC%+1 :reni 152 

530 NEXTY:IFHI=1THEN560 :rem 194 

540 GOSUB3000:BC%=BC%+1 :rem 3 

550 IPBC%> 10THENGOSUB2000 :L0%=L0%+1 : FORX=1TO2000 :N 
EXTX:GOTO700 : rem 93 

560 IFLC%<=LW%THEN400 :rem 226 

570 GOSUB4000:WI%=WI%+1:GOTO700 srem 71 

700 IFWU=NW%THENPRINT"{CLR}{RED}{2 DOWN}":GOTO750 

:rem 185 

710 PRINTCHR$(147);"{BLK}{3 DOWN} { 12 SPACES} {RVS} A 
NOTHER WORD ?{0FF}" srem 133 

715 PRINT"{2 down} {13 SPACES}ENTER {RVS}Y{0FF} OR 

{space} {RVS }n{ OFF}" srem 158 

720 GETX$:IFX$=""THEN720 srem 131 

730 IFX$="Y"THEN300 srem 65 

740 IPX$<>"N"THEN720 srem 122 

750 PRINT" {3 DOWN} {7 SPACES}* CORRECT =";WI% 

srem 18 

760 PRINT" {2 DOWN} {7 SPACES}# MISSED{2 SPACES}=";L 
0% srem 176 

770 GOSUB2500sFORX=lTO1000sNEXTX srem 1 

780 PRINTCHR$ ( 147 ) srem 26 

790 END srem 119 

1000 POKEVC+32,6:POKEVC+33,12 srem 157 

1005 PRINTCHR$(147);"{BLK}{D0WN}{8 SPACES}S PEL 
{SPACE}L I N G{4 SPACES}B E E{2 DOWN}" 

srem 173 

1010 PRINTSPC(20);"{BLK}i+ai-i" srem 121 

1020 PRINTSPC(20);"i2 +3" srem 180 

1030 PRINTSPC(16);"Mi@3{2 SPACES }g2 +3 "srem 43 
1040 PRINTSPC(18);"M E+ii-igM3" srem 103 

1050 PRINTSPC(18);"TrVS}£{YEL} {BLK} {YEL}E*§ 

{OFF} {BLK}N N" srem 150 

1060 PRINTSPC(16);"C{RVS}{YEL} {BLK} {YEL} {BLK} 

{YEL} {bLK} {0FF}Q" srem 51 

1070 PRINTSPC(18);"E*iTRVS}{YEL} {BLK} {OPF} 

{YEL}£{BLK}M M" srem 150 

1080 PRINTSPC(18T;"^N i+3g-3§M3" srem 108 

1090 PRINTSPC(16);"NgT3{2 SPACES} 12 +3" srem 49 
1100 PRINTSPC(20);"l2 +3" :rem 179 
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:rem 234 



PRINTSPC(20) 
PRINT" {5 D0WN}{BLK} 

****************************************' 



; 



:rein 183 

PRINT" ENTER A LETTER:" :rein 97 

UL=INT((40-((LW%*2)-l))/2) :rem 73 

X=(LW%-1)*2 :rein 53 

FORY=0TOXSTEP2 :reni 223 

POKES1+720+UL+Y, 121 :POKES2+720+UL+Y, 1 :NEXTY 

:rem 130 

RETURN :rem 171 

REM **** WORD MISSED / SHOW IT :rem 92 

FORX=0TOLW% JIFWI$(X)="$"THEN2020 :rera 172 

Y=ASC(WI$(X) ) sPOKESl+720+UL+(X*2) , Y-64 

:rem 183 

NEXTX :rem 91 

POKEMC+0 , : POKEMC+1 , 1 : POKEMC+5 , 15 : POKEMC+6 , 1 5 

trem 196 

POKEMC+24,15:PORY=80TO10STEP-5 :rein 105 

POKEMC+1 , Y : POKEMC+4 ,17: PORX=1TO50 : NEXTX 

srem 19 

POKEMC+4, 16 :NEXTY:POKEMC+24,0 : rem 49 

RETURN jrera 169 

REM *** PLAY A LITTLE SONG : rem 165 

POKEMC+5 , 79 : POKEMC+6 , 129 : POKEMC+24 , 15 : rem 193 
FORX=0TO11:Y=NT%(X) :Z=INT(y/256) :rem 236 

Y=Y-(Z*256) : POKEMC+0, Y: POKEMC+1, Z srem 12 

POKEMC+4, 17: FOR Y=1T0 100 :NEXTY :rem 107 

POKEMC+4, 16 :FORY=lTO40sNEXTY :rem 62 

NEXTX: POKEMC+24, :rem 74 

RETURN :rem 174 

REM *** BLANK OUT PART OF THE BEE : rem 254 
PRINT" {home} {2 DOWN} ":FORY=0TOBC%: PRINT" ":NE 
XTY :rem 220 

PRINT" {32 SPACES}" :rem 153 

POKEVC+33,0: POKEMC+0, 49: POKEMC+1, 10 : rem 72 
POKEMC+5, 15: POKEMC+6, 15 :POKEMC+24, 15 :rem 126 
POKEMC+4, 17 :FORY=1TO250 : NEXTY : POKEMC+4 , 16 

:rem 87 

POKEMC+24, 0:POKEVC+33, 12 :rem 149 

P0KES1+0F% ,X-64 :P0KES2+0F% , 1 :0F%=0F%+2 

:rem 243 

RETURN :rem 169 

REM *** WORD GUESSED - FLASH SCREEN :rem 205 
POKEMC+0 , : POKEMC+5 ,15: POKEMC+6 , 15 : POKEMC+1 , 
:Y=30: POKEMC+24, 15 :rem 18 

FORX=2T012:POKEVC+33,X :rem 145 

POKEMC+1 , Y : POKEMC+4 ,17: FORZ=1TO100 :NEXTZ 

:rem 67 

POKEMC+4, 16 :Y=Y+4:NEXTX: POKEMC+24, :rem 184 
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RETURN :rem 169 

DATA5728, 5728, 7217, 8583, 7217, 5728, 6430, 8101, 5 
728,6430,5728,5728 :rem 165 

6000 DATABOY, GIRL, FIRST, HER,WERE trem 66 

6010 DATATAKE, NAME, DAY, ASK, SUN :rem 138 

6020 DATAWITH, WHEN, THEM, AND, WENT : rem 63 

6030 DAT ASTOP, CAN, LOOK, RE AD, BOOK :rera 39 

6040 DATACAN, BEAT, TIME, RIDE, ADD irem 158 

6050 DATABALL, HARD, BIG, MAKE, CAME :rein 213 

6060 DATAGAME, GREEN, GOOD, SAY, MEAN :rem 88 

6070 DATATREE, HAD, TOP, MAN, GAVE irem 134 

7000 DATAAFTERNOON , BECAUSE , THI RD , ALWAYS , ANIMAL 

:rem 51 

7010 DATABASEBALL,ALIKE, CLOCK, BROTHER, CATCH: rem 19 
7020 DATAMORNING, SEVEN, FRIEND, GROUND, HOUSE :rem 57 
7030 DATALEARN, LARGE, LUNCH, PURPLE, HORSE : rem 68 
7040 DATALAST, BEST, SCHOOL, LITTLE, UNDER : rem 11 

7050 DATAWATER,LETTER,AROUND, DRINK, THANK :rem 160 
7060 DATAPRINT, AGAIN, ABOVE, SISTER,LIGHT :rem 67 
7070 DAT ACOLOR, AIRPLANE, ABOUT, EARTH, ROUND :rem 218 
8000 DATASHELF, DINNER, WINDOW, MACHINE, FINGERNAIL 

:rem 112 

8010 DATANEIGHBOR, BALLOON, DIRECTION, SANDWICH, PRESI 
DENT :rem 136 

8020 DATANOTEBOOK, ENGINE, ASLEEP, LANGUAGE, VEGETABLE 

:rem 56 

8030 DATACOMPANY, TOMORROW, SCREAM, MINUTE , KNIVES 

:rem 146 

8040 DATAIMPOSSIBLE , BACON, FROZEN, NEEDLE , CAMERA 

:rem 26 

8050 DATACARDBOARD , BAREFOOT , BEAUTY, IMPORTANT , ANNOU 
NCE srem 74 

8060 DATAGARBAGE , ALARM, FARMER, SNEEZE, GENERAL 

:rem 115 

8070 DATASPOON, WEIGHT, CONTAIN, FAMILY, MYSELF 

:rem 142 
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Level 




Skill area: Mathematics 
Level: 2, 3, 4 

Equipment required: None 
Modification: Yes 



A Monthly Income 

Your parents have decided to give you an allowance of $10 each 
month. Ten dollars sounded iSce a fortune at first, but the world is 
full of exciting things to buy. If you spend wisely, your allowance 
will be increased. What does wisely mean? How can your parents 
know whether buying a hamster or going to the movies is impor- 
tant to you? YouH have to spend your money the best way you 
can. If you spend your money unwisely, however, they may de- 
duct a dollar from your monthly income. 

"Spend Your Allowance" is full of situations that suddenly 
pop up. You may have to buy a birthday present, or you may be 
able to pick up some money doing chores around the house. 
When you get any extra money, keep it if you wish, or spend it if 
there's something you'd like to buy. It's your money. 

How to Play 

A game consists of 12 months, with four spending decisions each 
month. The computer will ask you to buy one of three items. 
Sometimes youll see two or three items you'd like to have. Other 
times, nothing will look very appealing. In any case, choose the 
item you'd most like to purchase. Indicate your choice by pressing 
the number 1, 2, or 3. 

Every month the computer will tell you how much money 
you have at the end of the month, how much your allowance is 
for next month, and what yovir total amovmt on hand is. For 
example, if your first month's allowance is $10, and you spend $12, 
you will have a balance of - $2 at the end of January, but your $10 
allowance will bring your total amount on hand to $8 for Feb- 
ruary. Random events throughout the game may increase or de- 
crease that amount. 
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If you spend wisely in any month, you may hear a musical ^ 
signal at the beginning of the following month, along with the 
news that your allowance has been increased. Your dlowance can 
be increased only $1 at a time, but it can be raised as many 
months in the year as your parents choose. Remember that 
unwise spending may cause your parents to reduce your allow- 
ance by a dollar per month. 

Scoring 

At the end of the game the computer will tell you how much your ^ 
monthly allowance was and how much you had on hand at the 
end of the year. You will then be given three options: 

Press 1 to start the game over. Your allowance will be $10, just as it 
was at the beginning of the last game. 

Press 2 to continue the game that you just finished . Because this 
is just a continuation, January will be considered the first month 
of the next year. You can play Spend Your Allowance for as many LJ 
game years as you want, and your ending allowance can be astro- 
nomical if you spend your money wisely. 

Press 3 to end the game. 
Note to Parents 

Do you want to use this game to teach your children to spend LJ 
their money wisely? Appendix D describes the technique used by 
this program to determine if the monthly allowance should be 
raised or lowered. Changes to this program can easily be made by LJ 
referring to Appendix D. 

Spend Your Allowance 

Remember, do not type the checksum number at the end of each line. For example, do 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in { I 

Appendix E. 

1 REM SPEND. .ALLOWANCE 8 rem 129 ^ 

100 MC=54272:VC=53248iPOKEVC+32,6:POKEVC+33,12:PRI 
NTCHR$(147) :reni 67 

110 DIMST%(12,1),MT$(11),BT$(99,2),CT$(29,2),RT(2) LJ 

trem 74 

120 FORX=54272TO54296:POKEX,0:NEXTX : rem 174 ^ 

150 PRINT" {CLR}{WHT} {DOWN} {RVS}{9 SPACES}SPEND YD , , 

UR ALLOWANCE {9 SPACES }{ GPP } " irem 19 

160 PRINT" {2 down! your PARENTS GIVE YOU $10.00 AL v_J 

L0WANCE{2 spaces} per month." :rem 98 

170 PRINT" {2 DOWN} YOUR PARENTS MAY RAISE OR LOWER LJ 
YOUR" :rem 203 

50 y_j 
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LeveB 

175 PRINT" ALLOWANCE, BASED ON HOW WISELY YOU 

{6 SPACES} SPEND IT." » rem 57 

180 PRINT" {2 down} UNEXPECTED THINGS CAN SOMETIMES 
HAPPEN" trem 146 

185 PRINT" WHICH WILL INCREASE OR DECREASE THE" 

:rem 34 

190 PRINT" MONEY YOU HAVE." '.rem 66 

200 PRINT" {2 DOWN} A GAME CONSISTS OF 12 MONTHS, W 
ITH" trem 143 

205 PRINT" FOUR SPENDING DECISIONS PER MONTH." 

:reni 56 

210 FORX=0TO12 : FORY=0TO1 : READZ : ST% (X, Y )=Z :NEXTY,X 

trem 209 

220 GOSUB1100:FORX=0TOlliREADX$:MT$(X)=X$:NEXTX:GO 
SUB1000 :rera 64 

300 CB=0:AA=1000sIQ=0 '.rem 128 

310 RESTORE trem 184 

320 READX$:IFX$<>"$"THEN320 : rem 24 

330 FORX=0TO99 : FORY=0TO2 : READX$ : BT$ ( X , Y ) =X$ : NEXTY , 
X :rem 22 

340 FORX=0TO29 :FORY=0TO2 :READX$ :CT$ (X, Y)=X$ s NEXTY, 
X :rera 17 

400 FORL1=0TO11 :GOSUB900:IQ=0 trem 254 

410 FORL2=0TO3 :rem 61 

420 IFL2=0THEN500 :rem 212 

430 IFRND(1)>.10THEN500 : rem 29 

440 X=INT(RND(1)*30) :X$=CT$(X,0) :IFX$=". "THEN440 

:rem 202 

450 PRINT"{CLR}":CT$(X,0)="." : rem 166 

452 POKEMC+0 , : POKEMC+1 , : POKEMC+5 ,15: POKEMC+6 ,15: 

POKEMC+24,15 :rem 181 

454 FORY=2T012:POKEVC+33,Y:POKEMC+l, (3*Y) :P0KEMC+4 

,17 :rem 222 

460 FORZ=1TO30 :NEXTZ : POKEMC+4, 16 : NEXTY : POKEMC+24 , 

trem 197 

470 Y=VAL ( CT $ ( X , 1) ) : Z=VAL ( CT $ ( X , 2 ) ) : PRINT " { HOME } 

{3 D0WN}";X$;". ":X$=STR$(Y) trem 92 

480 GOSUB1200:IFZ<0THENPRINT"{3 DOWN} YOU SPEND "; 

X$ trem 207 

485 IFZ>0THENPRINT"{3 DOWN} YOU MAKE ";X$ trem 253 
490 CB=CB+(Y*Z) :GOSUB1000 trem 184 

500 FORX=0TO2 trem 22 

510 Y=INT(RND(1)*100) tIFBT$(Y,0)=". "THEN510 

trem 134 

520 RT(X)=YfNEXTX trem 77 

530 IFRT(0)=RT(1)ORRT(0)=RT(2)ORRT(1)=RT(2)THEN500 

trem 212 

540 PRINT" {CLR} {DOWN} "; MT$ ( LI ): PRINT "{ DOWN} DECIS 
ION #";L2+1 trem 126 



51 



545 PRINT" {down} ON WHICH ITEM LISTED BELOW WOULD 

{SPACE} YOU" srem 133 

550 PRINT" SPEND YOUR ALLOWANCE? { DOWN} " jrem 26 
560 F0RZ=1T03:X$=STR$(Z) :Y§=RIGHT${X$,1) :PRINT" 
{DOWN} {RVS}";Y$;" {OFF} ";BT$(RT(Z-1) ,0) 

trem 227 

570 X$=BT$(RT(Z-1),1) :GOSUB1200:PRINT"{3 SPACES}C0 

ST = ";X$;"{D0WN}":NEXTZ :rem 132 

580 PRINT"{2 DOWN} {3 SPACES}ENTER {RVS}1{0FF} 

{RVS}2{0FP} or {RVS}3{0FP}"; :rem 108 

590 GETX§:IFX$=""THEN590 :rem 141 

600 X=VAL(X$):IFX<1ORX>3THEN590 :rem 160 

610 Y=VAL ( BT $ ( RT ( X-1 ) , 1 ) ) : CB=CB-Y : Y=VAL ( BT $ ( RT ( X- 1 

),2)):IQ=IQ+Y :reni 198 

620 BT$(RT(X-1),0)="." srem 91 

630 NEXTL2 srem 86 

700 NEXTLl srem 83 

800 PRINT" {CLR} {DOWN} {15 SPACES} {RVS} GAME OVERl 

{0FP}":X$=STR$(CB) :GOSUB1200 srem 139 

810 PRINT" {2 DOWN} TOTAL CASH ON H/VND IS ";X$sX$=S 

TR$(AA) :GOSUB1200 srem 154 

820 PRINT" {DOWN} CURRENT MONTHLY ALLOWANCE IS 

{SHIFT-SPACE}";X$sGOSUB1100 srem 207 

830 PRINT" {3 DOWN} ENTER REPLAY OPTION: {DOWN} " 

srem 14 

840 PRINT" {DOWN} {RVS}1{0FF} START GAME OVER"sPRIN 
T"{D0WN} {RVS}2{0FP} CONTINUE GAME" srem 168 

841 PRINT"{D0WN} {RVS}3{0FF} END GAME" srem 71 
850 GETX$:IFX$=""THEN850 srem 139 
860 X=VAL(X$) :ONXGOTO300,310,880 srem 106 
870 GOTO850 srem 117 
880 PRINTCHR$ ( 147 ) srem 27 
890 END :rem 120 
900 PRINT" { CLR} {2 DOWN} {4 SPACES} START OF ";MT$(L1 

) :rem 16 

905 X=IQ/4sIFCB<0ORX<4THEN2000 :rem 68 

910 AA=AA+100 srem 151 

920 POKEMC+0 , s POKEMC+1 , s POKEMC+5 , 15 $ POKEMC+6 ,15s 

POKEMC+24,15sFORX=2T011 srem 162 

925 POKEMC+1 , ( X* 3 ) s POKEMC+4 ,17 s rem 217 

930 FORY=lTO30:NEXTY:POKEMC+4,16sNEXTX srem 222 
935 POKEMC+24,0 srem 77 

940 PRINT" {2 DOWN} BECAUSE OF YOUR WISE SPENDING H 

ABITS, " srem 227 

945 PRINT" YOUR PARENTS HAVED RAISED YOUR" srem 78 
950 PRINT" ALLOWANCE BY $1 PER MONTH." srem 144 
960 X$=STR$(CB) sGOSUB1200sPRINT"{2 DOWN} OLD BALAN 

CE =";X$sX$=STR${AA) :GOSUB1200 srem 14 

965 PRINT" {DOWN} ALLOWANCE {3 SPACES }=" ;X$ $CB=CB+AA 

srem 62 
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970 X$=STR$(CB) :G0SUB1 200: PRINT "{down} NEW BALANCE 
=";X$iGOSUB1000 :rem 36 

980 RETURN trem 129 

1000 PRINT" {home} {24 DOWN} {12 SPACES }( PRESS ANY KE 
Y)"; :rem 39 

1010 GETX$:IPX$=""THEN1010 trem 213 

1020 RETURN trem 163 

1 100 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 1 2 
9:POKEMC+24,15 trem 28 

1110 PORX=0TO12 :rein 117 

1120 Y=INT(ST%(X,0)/256) jrem 51 

1130 POKEMC+0, ST%(X,0)-(Y*256) :rem 122 

1140 POKEMC+1, Y:P0KEMC+4, 17 jrem 82 

1150 P0RY=1T0ST%(X,1)*75:NEXTY :rem 82 

1160 POKEMC+4,16:FORY=1TO20:NEXTY,X :rem 188 

1170 POKEMC+24,0 trem 117 

1180 RETURN trem 170 

1200 X=VAL(X$) :X$=STR$(X) :X=LEN(X$ ) t IFX>3THEN1230 

trem 195 

1210 I FX=2 THENY$=LEFT$ (X$,l)+"$0.0" +RIGHT$ ( X$ , 1 ) t G 
OTO1280 trem 210 

1220 Y$=LEFT$ (X$ , 1 )+"$0 . "+RIGHT$ (X? , 2 ) :GOTO1280 

trem 31 

1230 X=X-3 : Y$=LEFT$ (X$ , 1 ) +" $ "+MID$ (X$ , 2 ,X)+" . "+RIG 

HT$(X$,2) trem 128 

1280 X$=Y$:IFLEN{X$)>7THENRETURN xrem 250 

1290 Y$=" "+Y$tGOTO1280 trem 176 

2000 IFX=>2ORAA<600ORIQ=0THEN960 : rem 193 

2005 AA=AA-100 trem 198 

2010 POKEMC+0 , : POKEMC+1 , 1 POKEMC+5 , 15 1 POKEMC+6 , 15 

:POKEMC+24,15 trem 221 

2015 F0RX=11T02STEP-1 trem 21 

2020 POKEMC+l,X*3:POKEMC+4,17 trem 172 

2030 FORY=1TO30:NEXTY:POKEMC+4,16:NEXTX trem 7 

2040 POKEMC+24,0 trem 114 

2050 PRINT" {2 DOWN} UNWISE SPENDING HAS CAUSED YOU 

R" :rem 205 

2060 PRINT" PARENTS TO LOWER YOUR ALLOWANCE BY $1 

{3 SPACES} PER MONTH." trem 82 

2070 GOTO960 trem 161 

3000 DATA6430 , 2 , 4817 , 1 , 6430 , 1 , 4817 , 1 , 6430 ,1,7217,1 

,8101,3 trem 29 

3010 DATA6430, 3, 8583, 2, 8583, 1,6430, 2, 7217, 2, 8101, 4 

trem 213 

3020 DATAJANUARY , FEBRUARY, MARCH , APRIL , MAY, JUNE , JUL 
Y, AUGUST, SEPTEMBER, OCTOBER trem 179 

3030 DATANOVEMBER, DECEMBER, "$" trem 53 

3100 DATA"JOE'S MATH NOTES", 100, 1, "RUNG FU POSTER" 
,150,1 trem 131 
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3110 DATA"PET FROG" , 125 , 1 , "BOX OF MATCHES" , 75 , 1 LJ 

: rem 67 

3120 DATA"IiIVE BABY BAT" , 175 , 1 , "PET SNAKE", 150,1 "-J 

:rem 89 , 

3130 DATA"SODA POP" , 50, 1 , "FIRECRACKERS" , 100, 1 ^ 

:rein 39 ^ ; 

3140 DATA"STINK BOMB" , 150, 1 , "PET MOUSE", 125,1 

:rem 241 LJ 

3150 DATA"WHITE RAT" , 200, 1 , "LOCKPICKING SET", 75,1 

:rem 41 ^ — ' 

3160 DATA"PET SPIDER" , 100, 1 , "PELLET GUN", 250,1 

:reni 50 

3170 DATA"BUBBLE GUM" , 50, 1 , "MOTHER AND BABY RABBIT 

S",80,l :rem 212 

3180 DATA"BROKEN ROLLER SKATE" , 200, 1 , "DRUM SET", 30 LJ 

0,1 :rem 254 

3190 DATA"ROTTEN GOOSE EGG" , 200, 1 , "LOCK WITHOUT A LJ 

{SPACE }KEY", 175,1 :rem 143 

3210 DATA"BASEBALL CARDS ",75,2, "CAT ' S EYE MARBLE" , ^ 

50,2 :reni 4 

3220 DATA"COMIC BOOK" , 50, 2 , "NOISY ROCK RECORD", 200 

,2 :rem 182 

3230 DATA"HOT FUDGE SUNDAE" , 150, 2, "PET GOLDFISH", 1 

75,2 :rem 44 LJ 

3240 DATA"PAIR OF DICE", 100,2, "PEN KNIFE", 100, 2 

:rem 243 ^ 
3250 DATA"BOX OF CHOCOLATES" , 200, 2 , "BUMPER STICKER 

",100,2 :rem 18 

3260 DATA"FALSE MUSTACHE" , 125 , 2 , "PHONY NOSE", 75, 2 

:rein 57 

3270 DATA"PEA SHOOTER" , 50, 2 , "NERF BALL", 100, 2 LJ 

:reni 228 

3280 DATA" JELLY BEANS", 50,2, "WOLFMAN MODEL", 200, 2 LJ 

:rem 20 

3290 DATA"DRACULA FANGS" , 100, 2, "TATTOO KIT", 150, 2 ^ 

:rem 5 

3300 DATA"WATER PISTOL" , 150, 2 , "PET HAMSTER" , 150, 2 

:rem 47 \ ; 

3310 DATT^RMONICA, 100,3, "HULA HOOP", 75, 3 :rein 86 

3320 DATA"ROLLER SKATES" , 300, 3 , "CHAMPION YO-YO",20 LJ 

0,3 trem 56 

3330 DATABASKETBALL,300,3,"T-SHIRT",175,3 :rem 121 ^ 
3340 DATA"MATCHBOX CAR" , 125 , 3 , "MOVIE TICKET" , 200, 3 

:rem 72 

3350 DATA"COMPUTER GAME" , 300, 3, "STUFFED ANIMAL", 30 [_) 

0,3 :rem 33 

3360 DATA" ICE CREAM CONE" , 75 , 3 , "BUBBLE STUFF", 50, 3 LJ 

I rem 19 

3370 DATABANJO,400,3, "CAP GUN", 200, 3 :rem 187 ^ 

LJ 

LJ 
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3380 


DATAFOOTBALL , 300 , 3 , "CATCHER ' S MITT " , 400 , 3 






:reni 154 




3390 


DATA"BASEBALL BAT" , 250, 3, "BUG COLLECTION" , 200 


1 ) 




,3 ;rem 179 




3400 


DATA " CAMP ING TENT ",350,3, CANTEEN ,150,3 






:rem 205 




3410 


DATA"STAMP COLLECTION" , 200, 4, "POSTAGE STAMPS" 


n 




,200,4 :rem 46 




3420 


DATA"BICYCLE PUMP" , 300, 4, "TENNIS SHOES", 500,4 






:rem 103 




3430 


DATA"FROZEN YOGURT" , 200, 4, PENCILS, 175,4 






:rein 103 




3440 


DATAKITE, 300,4, "DOG FOOD", 500, 4 : rem 196 




3450 


DATA"CAMERA FILM", 250, 4, "FILM DEVELOPING" , 350 


(—^ 




,4 :rem 199 




3460 


DATA"FINGER PAINTS ", 350 , 4 , "COIN COLLECTION" , 5 






00,4 :rein 127 




3470 


DATA"SHELL COLLECTION", 300,4, "ELECTRIC TRAIN" 


( ) 




,500,4 :rem 9 


r-\ 


3480 


DATA"CHECKER SET", 275,4, "SCOUT KNIFE", 300,4 




:reni 194 




3490 


DATA"MICKEY MOUSE WATCH" , 500,4, COMPASS, 250, 4 






:rem 118 




3500 


DATA"BOOK OF MAGIC" , 300,4, "TOY TYPEWRITER" , 50 






0,4 :rem 18 




3510 


DATA " B I RTHDAY CARD ",150,5, NOTEBOOK , 300 , 5 


' ) 




:rem 104 




3520 


DATADICTIONARY, 600 , 5 , " POCKET CALCULATOR" , 650 , 






5 trem 69 




3530 


DATA"SILVER DOLLAR" , 700, 5 , DIARY, 400, 5 : rem 166 


r-i 


3540 


DATA"TOM SAWYER BOOK" , 300, 5 , "CHESS SET", 450, 5 






: rem 56 




3550 


DATADOMINOES , 400 , 5 , "SAVINGS ACCOUNT " , 500 , 5 


I ) 




:rem 32 




3560 


DATA"GET-WELL PRESENT" , 300, 5 , "BIRTHDAY PRESEN 






T",350,5 :rem 187 




3570 


DATA"WEDDING PRESENT", 500,5, "FLEA COLLAR", 250 


O 




,5 rrem 219 




3580 


DATA"KITTY LITTER" , 350, 5 , "ANT FARM", 500, 5 






:rem 87 




3590 


DATA"DRAWING PAPER" , 550, 5, "GIFT FOR MOM", 600, 






5 :rem 103 




3600 


DATA"GIFT FOR DAD",600,5, "WATERCOLOR SET", 575 






,5 :rem 176 


r-) 


4000 


DATA" GRANDMA SENDS YOU A CHECK FOR YOUR 






{6 SPACES} BIRTHDAY", 500,1 : rem 224 




4010 


DATA" MOM PAYS YOU FOR BABYSITTING YOUR 






{7 SPACES iLITTLE BROTHER" , 300, 1 : rem 188 




4020 


DATA" YOU SELL YOUR BASEBALL GLOVE TO YOUR 






{4 SPACES }FRIEND TOMMY", 400,1 :rem 176 






55 









LJ 



Level 



4030 
4040 
4050 
4060 
4070 
4080 
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4200 
4210 
4220 
4230 
4240 
4250 
4260 
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DATA" YOU MOW YOUR NEIGHBOR'S LAWN TO GET 
{5 SPACES} EXTRA MONEY", 300,1 :rem 9 

DATA" MOM PAYS YOU FOR CLEAINING YOUR ROOM 
{4 SPACES } WITHOUT BEING ASKED", 300,1 :rem 99 
DATA" YOU WIN A PRIZE AT SCHOOL FOR BEING A 
{3 SPACES }G00D STUDENT", 500,1 :rem 53 

DATA" YOU RETURN A WALLET THAT YOU FIND AND 
{3 SPACES }GET A REWARD" , 500, 1 :rera 53 

DATA" YOU WIN A CONTEST FROM A LOCAL RADIO 
{4 SPACES} STATION ",500,1 irem 4 

DATA" HELP JEFF DELIVER PAPERS ON HIS 
{9 SPACES} NEWSPAPER ROUTE", 300,1 :reni 37 

DATA" YOU GET A GOOD REPORT CARD, AND DAD IS 
{2 SPACES} VERY PLEASED" , 400, 1 :rem 45 

DATA" YOU AND SUSIE MAKE MONEY RUNNING A 
{6 SPACES }LEM0NAIDE STAND", 500,1 : rem 170 

DATA" YOU LOSE A TOOTH AND THE TOOTH FAIRY 
{4 SPACES} LEAVES YOU SOME COINS", 75,1 :rera 66 
DATA" YOU RAKE THE YARD AND DAD PAYS YOU FOR 
{2 SPACES} IT ",200,1 :rem 203 

DATA" YOU CLEAN THE HOUSE AND MOM PAYS YOU 
{4 SPACES} FOR YOUR HARD WORK", 250,1 :rem 153 
DATA" YOU DON'T WATCH TV FOR A WHOLE WEEK AND 
DAD REWARDS YOU", 300,1 : rem 65 

DATA" YOUR BICYCLE TIRE POPS AND YOU HAVE TO 
{2 SPACES} BUY A NEW ONE", 250,-1 :rem 201 

DATA" YOU JOIN A SECRET CLUB AND HAVE TO PAY 
{2 SPACES} DUES ",200,-1 :rem 128 

DATA" YOU BUY A BIRTHDAY GIFT FOR YOUR 
{8 SPACES}SISTER", 150,-1 jrem 53 

DATA" YOU BREAK YOUR SISTER'S DOLL AND HAVE 
{3 SPACES }T0 BUY HER A NEW ONE", 500,-1 : rem 28 
DATA" YOU BREAK MOM'S LAMP AND HAVE TO 
{8 SPACES} REPLACE IT", 500,-1 :rem 153 

DATA" YOU LOSE YOUR WALLET ON THE WAY HOME 
{4 SPACES} FROM SCHOOL" , 400, -1 irem 74 

DATA" YOU KNOCK YOUR BALL THROUGH A WINDOW 
{4 SPACES }AND must FIX IT", 400,-1 :rem 38 

DATA" PAY YOUR FRIEND TO TEACH YOU YO-YO 
{6 SPACES}TRICKS", 100,-1 irem 176 

DATA" YOU AND BETTY GO TO THE CIRCUS", 200,-1 

:rem 170 

DATA" DAD MAKES YOU BUY BACK A BROKEN TOY 

{5 SPACES} YOU SOLD TO SAM", 200,-1 jrem 89 

DATA" YOU BUY DAD A PRESENT FOR HIS BIRTHDAY" 

,400,-1 trem 173 

DATA" YOU BUY A GIFT TO TAKE TO SALLY'S 

{7 SPACES} BIRTHDAY PARTY" , 350,-1 irem 33 
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4270 DATA" YOUR FAVORITE CANDY BARS ARE ON SALE, 

{3 spaces} AND YOU BUY A CASE", 500,-1 :reni 159 

4280 DATA" YOU PAY YOUR LITTLE BROTHER TO WASH THE 

^ DOG FOR YOU", 300,-1 :rem 4 

4290 DATA" YOU MUST PAY PART OF THE DOCTOR BILL TO 

(— ) GET A BEAN OUT OF YOUR EAR" J rem 134 

4300 DATA400,-1 :rem 255 

n 
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Skill area: Language Arts 

Level: 2, 3, 4 LJ 
Equipment required: None 

Modification: Yes ^ 

LJ 

A Long Night and Tired Eyes lj 




It's one of those nights. There's a super triple feature on television 
— three monster movies, back-to-back. You should do your 
homework, but you just have to find out if the cockroach really 
does eat Cincinnati. 

By the time the third featvire ends, your eyes are almost shut 
You hit the pillow and fall asleep in 43 seconds. Two minutes LJ 
later, you sit straight up in bed. Miss Zane, your English teacher, 
is yelling at you in your mind. You've just remembered the big 
exam tomorrow. And you spent the evening watching cock- LJ 
roaches dine on Cincinnati! ^ 

There's nothing to do but get out of bed and study for that 
exam. Miss Zane is no easy teacher, and if you flunk the exam LJ 
youll be grounded until four years from next Saturday. But your 
eyes don't seem to care. Every time you try to read a word, your 
eyes play tricks on you. All the words are jumbled up. If you don't LJ 
unjumble those words quickly, you're going to be in big trouble 
tomorrow morning. 
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How to Play 

"Word Scramble" is geared to three different skill levels. Level 1 is 
for beginners. Level 2 contains words of five or six letters. Level 3 
contains words of seven to nine letters. Press the number of the 
level you want, then hit the RETURN key to start the game. 

The computer will show you a word with its letters 
scrambled. Type the correct word on the computer keyboard and 
press the RETURN key to enter it. A correct answer will be re- 
warded with music and colored lights. An incorrect answer will 
be greeted with a buzz. You can guess as many times as you 
want, or you can skip a tough word by pressing the f 1 key. If you 
press the fl key, the computer will unscramble the word and dis- 
play the correct answer. Unscramble as many words as you can in 
the two-minute time limit. ^ 
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Scoring 

r~) You'll receive five points for each word you correctly unscramble. 

One point will be deducted from your score for each incorrect 

guess. There are 50 words in each level of difficulty, so the ideal 
(— ) high score would be 250 points. That total is very difficult to 

reach. But if you're really good at Word Scramble, youH pass Miss 

Zane's test. 

Wbrd Scramble 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
r~) Appendix E. 

^ 1 REM WORD SCRAMBLE :rem 154 

100 TS=50 :rem 218 

(— ) 110 DIMWT$(TS-1),R%(20),NT%(30,1) :reni 235 

120 VC=53248:POKEVC+32,14:POKEVC+33,12:PRINTCHR$(l 
47) :rem 105 

130 Z=((PEEK(53272)AND240)/16)*1024:M=Z+603:C=5529 
6+603 :rem 161 

p., 140 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rein 71 
150 READX$:IFX$<>"$SONG"THEN150 :reni 81 

(— ) 160 PORW=0TO30:FORY=0TO1:READX:NT%(W,Y)=X:NEXTY,W 

:rein 201 

O 200 PRINT"{2 SPACES} {WHT}*********{2 SPACES} {BLK}D 

R0W{2 SPACES }ELBMARCS{ 2 SPACES} {WHT }*********" 

:reni 118 

210 PRINT" {2 DOWN} THE COMPUTER WILL SHOW YOU A SC 
RAMBLED {2 SPACES } WORD. " :reni 132 

r-) 220 PRINT" {down} YOU MUST UNSCRAMBLE IT AND ENTER 

{SPACE}THE{4 spaces} correct word." :rem 243 
O 230 PRINT" {2 DOWN} {4 SPACES} +5 POINTS FOR EACH COR 

RECT word." :rem 57 

240 PRINT" {down} {4 SPACES} -1 POINT FOR AN INCORREC 
T GUESS." :rera 52 

250 PRINT" {2 DOWN} EACH GAME LASTS TWO MINUTES." 
(— ) irem 137 

255 PRINT" {DOWN} PRESS THE {RVS}F1{0FF} KEY TO SKI 
r~) PA WORD." :rera 117 

260 GOSUB6000:FORX=1TO1000:NEXTX :rein 250 

270 GOSUB6200 trem 225 

280 PRINT" {DOWN} {7 SPACES } (PRESS ANY KEY TO START) 
' ' " :rem 92 

290 GETX§:IFX$=""THEN290 :rem 135 

300 PRINT"{CLR}{3 DOWN} {2 SPACES}ENTER SKILL LEVEL 
/— ) :" :rein 217 

310 PRINT" {2 DOWN} {6 SPACES }{ RVS } 1 { OFF } 
r~) {SHIFT-SPACE}- BEGINNER": PRINT" {10 SPACES} (4 L 

ETTERS ) " ! rem 38 
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320 PRINT" {2 DOWN} {6 SPACES} {RVS}2 {OFF} - INTERMED i_) 

lATE": PRINT "{10 SPACES} (5-6 LETTERS)" :rem 29 
330 PRINT" {2 DOWN} {6 SPACES }{ RVS } 3 { OFF } LJ 
{SHIFT-SPACE}- ADVANCED" :PRINT" {10 SPACES} (7-9 
LETTERS)" :rem 127 ' 

335 PRINT" {2 DOWN} {2 SPACES }( ENTER 1, 2 OR 3)" ^ 

I rem 192 

340 GETX$:IFX$=""THEN340 :rein 127 

350 IFX$<"1"ORX$>"3"THEN340 :rem 236 

360 SK=VAL(X$) : RESTORE :IFSK=1THEN380 :rem33 LJ 

370 X=(SK-1)*TS:F0RY=1T0X:READX?:NEXTY :rem 212 
380 F0RX=1T0TS:READX$:WT$(X-1)=X$:NEXTX :reni 254 LJ 
390 SC=0:WC=l:TL$="000200"iTI$="000000" :rem 30 
500 X=INT(RND(1)*TS) :UW$=WT$(X) :IFUW$="$"THEN500 

: rem 94 

510 WT$(X)="$" :rem 179 

520 X=LEN(UW$) :FORY=1TOX:R%(Y)=0:NEXTY:FORY=1TOX ^ 

: rem 140 

530 Z=INT(RND(1)*X)+1:IFR%(Z)<>0THEN530 : rem 11 LJ 
540 R% ( Z )=Y:NEXTY: SW$=" " : F0RY=1T0X : SW$=SW$+MID$ ( UW 

$,R%(Y),1) :NEXTY :reml04 
550 IFSW$=UW$THEN520 :rem 202 

560 X$=MID$(TI$,3,2)+". "+MID$(TI$,5,2) : rem 184 
565 IFTL$<TI$THEN700 : rem 182 

570 PRINT"{CLR}{2 D0WN}{3 SPACES }W0RD{ 2 SPACES}*"; 

WC: PRINT "{DOWN} {3 SPACES} TIME {2 SPACES }= ";X$ LJ 

:rem 149 

580 PRINT" {down} {3 SPACES} SCORE =";SC :rem 9 LJ 

590 PRINT"{4 D0WN}{3 SPACES} >{4 SPACES } {BLK} "; S 

W$;"{WHT}"; :rem 208 

600 GOSUB8000 :rem 222 

605 IFSW$="Q"THEN680 : rem 23 

610 IFSW$<>UW$THENSC=SC-1:GOSUB7000:GOTO600 LJ 

:rem 190 

620 POKEMC+0,0:POKEMC+1,0:POKEMC+5,15:POKEMC+6,15: LJ 

POKEMC+24,5 :rem 129 

630 FORX=3T012 : rem 78 

640 POKEMC+l,X*3:POKEMC+4,17:POKEVC+33,X :rem 153 
650 FORY=1TO40:NEXTY:POKEMC+4,16 :rem 13 

660 FORY=lTO20:NEXTY,X:POKEMC+24,0 :rem 139 lJ 

670 SC=SC+5 :rem 102 

680 WC=WC+1:IFWC<(TS+1)THEN500 :rem 34 LJ 

700 IFSC<0THENSC=0 : rem 90 

710 PRINT"{CLR}{2 down} {15 SPACES} {RVS } GAME OVERl 
{off}": PRINT" {3 DOWN} {6 SPACES} SCORE =";SC 

:rem 1 

720 PRINT" {3 DOWN} {6 SPACES}PLAY AGAIN? ({RVS}Y (i 

{OFF} OR {RVS}n{OFF})" irem 83 

730 GETX$ :IFX$=""THEN730 : rem 133 LJ 

740 IFX$="Y"THEN300 :rem 66 

LJ 
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750 IFX$<>"N"THEN730 .-rem 124 

760 GOSUB6000:PRINTCHR$(147) :rem 152 

770 END :rera 117 

6000 REM *** PLAY THE SONG *** : rem 244 

6010 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 39 : POKEMC+6 , 12 

9:P0KEMC+24,8 :rem 239 

6020 FORX=0TO30 :rem 122 

6030 Y=INT(NT%(X,0)/256) :rem 51 

6040 POKEMC+0, NT%(X,0)-(Y*256) :reni 122 

6050 POKEMC+1, Y:P0KEMC+4, 33 ;reni 85 

6060 FORY=1TONT%(X,1)*60:NEXTY : rem 76 

6070 POKEMC+4,32:FORY=1TO20:NEXTY,X :rem 191 

6080 POKEMC+24,0 :rem 122 

6090 RETURN :rem 175 

6200 REM *** FIX THE TITLE *** : rem 242 

6210 Z=Z+52:X?="WORD{2 SPACES } SCBIAMBLE " irem 8 

6220 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 15 : POKEMC+6 , 15 

:POKEMC+24,5 : rem 179 

6230 F0RX=1T014 :rem 128 

6240 POKEMC+1, X* 3 :P0KEMC+4, 33 :rera 178 

6250 Y=ASC(MID$(X$,X,1) ) :rem 55 

6260 IFY<>32THENY=Y-64 :rem 74 

6270 POKEZ+X,Y trem 96 

6280 FORY=lTO40:NEXTY:POKEMC+4,32 :rem 64 

6290 FORY=1TO10:NEXTY,X: POKEMC+24,0 :rem 191 

6295 RETURN :rem 182 

7000 REM *** BAD ANSWER - BEEP IT *** :rem 36 

7010 POKEMC+0 , : POKEMC+1 , 10 : POKEMC+4 , 33 : POKEMC+5 , 1 

5:POKEMC+6,15sPOKEMC+24,5 : rem 204 

7020 FORY=1TO500:NEXTY trem 129 

7030 POKEMC+4, 32 : rem 121 

7040 FORY=lTO100:NEXTY:POKEMC+24,0 :rem 101 

7050 PRINT" {home} {6 D0WN}l3 RIGHTIsCORE =";SC;" 

{5 SPACES}"; :rem 177 

7060 RETURN : rem 173 

8000 SW$=" " : FORX=0TO1 9 : POKEM+X ,32: POKEC+X , : NEXTX : 

POKEM,160 trem 169 

8010 GETX$:IFTL$<TI$THEN700 : rem 117 

8020 Y$=MID$ ( TI$ , 3 , 2 ) + " . "+MID$ ( TI$ , 5 , 2 ) : PRINT " 

{home} {4 DOWN} {11 RIGHT} ";Y$ :rem 65 

8025 IFX$=""THEN8010 trem 83 

8030 X=ASC(X$) trem 4 

8040 IFXO133THEN8045 trem 196 

8042 PRINT" {6 DOWN} {11 RIGHT} {BLK} " ;UW$ :F0RX=1T015 

00 1 NEXTX t PRINT " { WHT } { CLR } " : SW$= " Q " : RETURN 

trem 23 

8045 IFX=13THENRETURN trem 104 

8050 IFX=20THEN8100 trem 75 

8055 IFX<65ORX>90THEN8010 trem 248 
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8060 Z=LEN(SW$) :POKEM+Z,X-64:POKEM+Z+1,160:SW$=SW$ 

+X$:GOTO8010 :rem 9 

8100 Z-LEN(SW$) :IFZ-0THEN8010 :rem 230 

8110 POKEM+Z, 32 : POKEM+Z-1 , 160 :X$=LEFT$ ( SW$ , Z-1 ) : SW 

$=X?:GOTO8010 :rem 250 

9000 DATATALK , FOUR , BEST , BLUE , WARM , SOAP , FOOT , P ILL , W 

ORK,YELL :rem 121 

9010 DATAEVEN , GATE , HELP , HOUR, JOKE , WORD , GI RL , MOON , N 

ICE, DISH :rem 57 

9020 DATAJULY, JUNE , BOOK, HIDE , BOYS , TREE , CORN, GONE , Q 

UIT,EASY :rem 105 

9030 DATAGOLD , GOAL , WHIP , PILE , PIGS , PLAY, TEST , BOIL , T 

OYS,LION :rem 109 

9040 DATAROAR, THEM, ZOOM, MATH, FIVE, NINE , FARM, JUNK, H 

EAD.IRON :rem 64 

9100 DATAAPPLE, BUTTER, CHILD, DRIVE, ENOUGH, GIVEN, HOL 

LOW, IGLOO, LAMBS, MAKER :rem 3 

9110 DAT ANO I SE, PLAYER, QUIET, RUBBER, SHAVE, TELLER, VI 

OLET, WATER, YOUNG, ZEBRA :rem 161 

9120 DATAPLEASE , CAMEL , STORY, MOUSE , RABBIT , PENC IL , DE 

SKS, CHAIR, WATCH, SHELL : rem 247 

9130 DAT ASLEEP , ORANGE , BOTTLE , HOTEL , CANDLE , MONDAY , F 

ORGET, LIGHT, PILLOW, SHELF : rem 229 

9140 DATAGI ANT , WHALE , SHI RT , THREE , EVERY, PHONE , LETTE 

R, GRASS, BUBBLE, ROAST : rem 228 

9200 DATAALPHABET, BOTTLED, GEOGRAPHY, DANGEROUS , ELEM 

ENTS :rem 143 

9210 DATAFEBRUARY, GREATER, HELIPORT, ISOLATE, LAM I NAT 

E :rem 195 

9230 DATAMESSAGE, NOVEMBER, OPTIMIST, PASSAGE , REMEMBE 

R :rem 199 

9240 DATASALIVATE , TELEPHONE , UNKNOWN , VACCINATE , WITN 

ESS :rem 129 

9250 DATAMUSHROOM, EVAPORATE , PHYSICIAN, REGULATE , REP 

ORTER :rem 47 

9260 DATACOMPUTER, TERMINAL , GRANDSON , APRICOT , QUESTI 

ON :rem 76 

9270 DATAWEATHER,GIRAFFE, SHARPEN, HYDROGEN, JOURNAL 

:rem 44 

9280 DATABEDROOM, TROUSERS, NECKTIE, RELIGION, SCIENCE 

:rem 130 

9 290 DATAGUMBALL , LUBRI CATE , BATHROOM , CLOTHES , WASHIN 
G :rem 188 

9300 DATALAUNDRY, DRAWER, ASPARAGUS , OATMEAL, PENGUIN 

:rem 58 

20000 REM *** SONG DATA *** : rem 35 

20005 DATA"$SONG" srem 176 

20010 DATA2408, 1,2864, 2, 3215, 2, 3608, 2, 3215, 1,2864, 
2,2703,2,2408,2,2703,1 :rem 251 
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20020 DATA2864, 2, 3608, 2, 4817, 2, 4817, 2, 4291, 1,3608, 
^ 2,4291,1,4817,2,4050,2 :rem 21 

20030 DATA3215, 2, 3608, 2, 4050, 2, 3608, 2, 2864, 2, 2408, 
f-, 2,2703,1,2864,2 :rem 170 

20040 DATA3608 , 2 , 4050, 2 , 3608 , 2 , 2864, 1 , 2408, 2 

:rem 162 
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Skill area: Language Arts 
Level: 3, 4 

Equipment required: None 
Modification: No 



Lunchtime 

If s lunchtime again, and the only thing to eat in the house is 
alphabet soup. Alphabet soup isn't a bad lunch — if you like soup, 
that is. But the good thing about alphabet soup isn't the taste. The 
good thing is that letters float up from the bottom of the bowl and 
bob around on the top with the peas and the carrots. If you don't 
have anything better to do, you can make all sorts of nifty words 
with the letters. 

How to Play 

Today it's okay to play with your food. Sixteen letters float up to 
the top in your bowl of alphabet soup. See how many words of 2 
letters or more you can make with those 16 letters. 

When you see a word in the line of letters, type it on the com- 
puter keyboard. If you decide you don't like a word you typed, 
type the symbol @, followed by the word. For example, if you've 
entered the word zero and decide you'd rather spell zebra, type 
" ©zero" to make zero disappear. The letters Z, E, R, and O will re- 
turn to the soupbowl, and you can use them again. 

Before the game starts, you can decide how long you want the 
game to last. If you're quick, make the time limit a minute. If 
you'd rather concentrate on getting beautiful words than on spell- 
ing words quickly, choose a longer playing time. If you've used all 
the letters you can and the time still isn't up, press fl to end a 
round early. 

At the end of a game, you can press Y or N, indicating 
whether or not you want to play again. If you want to play again 
but would like to select a different time liinit, press R to reset the 
time. 

Scoring 

The score is based on the word length and value of the letters in 
the word. A six-letter word, for example, is going to be worth 
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much more than three two-letter words. 

At the top of the soupbowl are the 16 letters youll be usmg in 
the round. Underneath each letter is a number. Letters that are 
harder to use — Q, X, Z, and some others — are worth more 
points than letters you can use an5where. Try to use those big let- 
ters first. 

The computer does not check to see if a word is spelled cor- 
rectly, or even if it is a word, so youH have to be honest. 

At the end of the game, your score will appear. Each word 
you created will be printed together with the point value for that 
word. Then youH see your total score. Your score will depend a 
little bit on which letters float to the top of the soupbowl, but your 
final score will depend most on how good you are at malidng 
words with your food. 

Alphabet Soup 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 

Appendix E. 

1 REM ALPHABET SOUP :rem 157 

100 VC=53248 iMC=54272 : POKEVC+32 , 3 : POKEVC+33 , 1 

trem 89 

102 PRINTCHR$(147) :CB=828 :rem 172 

104 LP= ( ( PEEK( 53272 )AND240 ) /16 ) *1024 :LP=LP+44 

:rem 187 

106 CO=55296-LP+44:CP=LP+840 :rem 58 

108 FORX=54272TO54296:POKEX,0:NEXTX :rein 180 

120 DIML%(25,2),W$(7) :X=RND(-TI) :reni 241 

130 PRINT" {BLK} {11 SPACES} iRVS}* ALPHABET 

{2 SPACESlSOUP *{0FF}" : rem 117 

140 PRINT" {2 D0WN}16 RANDOM LETTERS AND THEIR POIN 

T VALUESWILL BE PRINTED." : rem 127 

150 PRINT" {2 DOWNIbUILD WORDS OF 2 OR MORE LETTERS 
EACH." :rem 133 

160 PRINT" {2 D0WN}END A ROUND EARLY BY USING ALL 1 

6" :rem 8 

165 PRINT"LETTERS OR BY PRESSING {RVS}F1 {OFP} . " 

:rem 128 

170 PRINT" {2 DOWNlCANCEL A WORD BY USING '0' FOLLO 

WED BY{2 SPACES iTHE WORD." :rem 159 

180 PRINT" {2 DOWN} YOUR SCORE IS BASED ON WORD LENG 

TH AND {2 SPACES} LETTER VALUES." : rem 142 

185 GOSUB7000 :rem 229 

190 PRINT" {2 DOWN} {8 SPACES} (PRESS ANY KEY TO STAR 

T)" :rem 109 

200 FORW=0TO25 : READX , Y, Z : L% ( W, ) =X : L% ( W, 1 ) =Y : L% ( W, 

2)=Z:NEXTW :rem 162 
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' 210 GETX$:IFX$=""THEN210 : rem 119 

220 PRINTCHR$ ( 147 ) ; " { 3 DOWN} HOW MANY MINUTES SHOUL 
D EACH GAME LAST??"; :rem 240 

) 225 PRINT" {3 DOWN} {7 SPACES}ENTER A NUMBER PROM 

{RVS}1{0FF} to {RVS}4{0FF}" :rem 169 

230 GETRL$ :IFRL$=""THEN230 : rem 7 

240 IFRL$<"1"ORRL$>"4"THEN230 :rem 117 

~ 250 TL$="000"+RL$+"00" :rem 40 

^ 300 POKEVC+32,10:WC=0:LC=0:PRINTCHR$(147) :rem 164 

305 FORW=0TO25 : rem 77 

310 F0RX=1T0L%(W,1) :POKECB+LC,L%(W,0) :LC=LC+1:NEXT 
X,W :rem 232 

O 320 FORX=0TO7:W$(X)=".":NEXTX : rem 249 

330 FORX=0TO30STEP2 :rem 182 

' ' 340 Y=INT(RND(1)*LC) :Z=PEEK(CB+Y) :IFZ=0THEN340 

^ :rem 46 

350 POKECB+Y,0:POKELP+X,Z:POKELP+X+CO,0:W=L%(Z-1,2 
r~i )+48 I rem 24 

360 POKELP+X+40,W:POKELP+X+40+CO,6:NEXTX 
ri 370 POKECP-1,62:POKECP-1+CO,4:TI$="000000" :rem 97 

^ 400 WB$="" :LE=0:D%=0 : rem 26 

I" 410 IFTI$>TL$THEN800 :rem 174 

415 J$=MID$(TI$,3,2) + "."+MID$(TI?!,5,2) : rem 169 

416 PRINT" {HOME} {23 DOWN} " ; SPC( 17 ) ; J$ ; :rem 196 
420 GETX$:IFX$=""THEN410 : rem 124 
430 X=ASC(X$) :IPX=13THEN600 : rem 87 

m 435 IFX=133THEN800 : rem 30 

437 IFX=20THEN1700 : rem 27 

'"^ 440 IFX$="@"ANDLE=0ANDD%=0ANDWC>0THEND%=1:GOTO500 

:rem 199 

450 IFX<65ORX>90THENGOSUB1800:GOTO410 :rem 71 

1^ 455 IFD%=1THEN490 : rem 208 

460 W=0 :rem 94 

O 465 IFPEEK(LP+W)={X-64)THEN480 :rem 10. 

470 W=W+2:IFW<32THEN465 :rem 114 

475 GOSUBia00:GOTO410 :rem 241 

_ 480 POKELP+W,32:POKELP+W+CO,1:POKELP+W+40,32:POKEL 

P+W+40+CO,l :rem 242 

490 WB$=WB$+X$ :rem 251 

500 POKECP+LE , X-64 : POKECP+LE+CO , 9 : LE=LE+1 : 1 FLE < 1 7T 

r-) HEN410 :rem 191 

600 X=LEN(WB$) :IFX<2THENGOSUB1800:GOTO410 :rem39 

O 610 IFD%<>1THEN700 

620 W=0 :rem 92 

625 IFWB$=W$(W)THEN640 :rem 18 

630 W=W+1:IFW<8THEN625 :rem 64 

635 GOSUB1800:GOTO750 :rem 246 

r-) 640 W$(W)=".":X$="":F0RY=1T0(W*2)+6:X$=X$+"{D0WN}" 

:NEXTY : rem 84 
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645 PRINT" {HOME} ";X$; "{38 SPACES)" : rem 185 

650 WC=WC-1:PORY=1TOX:Z=0 irem 78 

660 IFPEEK(LP+Z)=32THEN680 :rem 49 

670 Z=Z+2:GOTO660 ; rem 250 

680 X$=MID$ (WB$ , Y, 1 ) : W=ASC (X$ ) -64 : POKELP+Z, W: POKEL 

P+Z+CO,0 :rem 254 

690 W=L%(W-1,2) :POKELP+Z+40,W+48:POKELP+Z+40+CO,6: 

NEXTY:GOTO750 :rem 84 

700 X=0 :rem 92 

705 IFW$(X)="."THEN720 :rem 198 

710 X=X+1:IFX<8THEN705 :rem 65 

720 W$(X)=WB$:X$="":F0RY=1T0(X*2)+6:X$=X$+"{D0WN}" 

: NEXTY : PRINT " { HOME } " ; X$ ; " { 4 SPACES } " ; WB $ ; 

:rem 39 

730 WC=WC+1 trem 103 

750 FORX=0TO18 :POKECP+X, 3 2 : POKECP+X+CO , 1 :NEXTX 

:rem 206 

760 X=0 :rem 98 

765 W=PEEK(LP+X) :IFW<>32THEN400 :rem 141 

770 X=X+2:IFX<32THEN765 :rem 123 

800 POKEVC+32,3:W=0:PRINTCHR$(147);"{2 SPACES}WORD 

{12 SPACES} SCORE" :rem 57 

805 PRINT" {2 SPACES} " :rem 31 

810 X=0 srem 94 

815 IFW$(X)="."THEN900 : rem 200 

820 WB$=W$(X) :Y=LEN(WB$) :Z=Y:IFZ>8THENZ=8 :rem 54 
830 S=Z-2 : F0RZ=1T0Y :X$=MID$ (WB$ , Z , 1 ) : A=ASC (X$ ) -65 i 

S=S+L%{A,2) iNEXTZ srem 27 

840 WB$=WB$+" " trem 194 

850 IPLEN(WB$)<17THENWB$=VfB$+"-":GOTO850 trem 79 
860 X$=STR$(S) trem 24 

870 IFLEN(X$)<4THENX$=" "+X$:GOTO870 srem 47 

880 PRINT" {down} {2 SPACES} " ;WB$ ;X$ srem 49 

890 W=W+S8X=X+1 5lFX<8THEN815 srem 239 

900 PRINT "{down} TOTAL SCORE ={7 SPACES} ";W srem 74 
930 PRINT" {down} REPLAY 0PTI0N?{3 SPACES} {RVS}Y 

{off} - YES" srem 126 

932 PRINT"{17 SPACES} {RVS}n{ OFF} - NO" trem 43 

934 PRINT" {17 SPACES} {RVS}r{ off} - NEW TIME LIMIT" 

srem 44 

940 GETX$sIFX$=""THEN940 trem 139 

950 IFX$="Y"THEN300 srem 69 

955 IFX$="R"THEN220 srem 68 

960 IFX$<>"N"THEN940 srem 130 

970 PRINTCHR$(147) srem 27 

980 END srem 120 

1700 IFLE<lTHENGOSUB1800sGOTO410 srem 213 

1710 LE=LE-1 srem 134 

1720 X=PEEK(CP+LE) sPOKECP+LE,32tPOKECP+LE+CO,l 

srem 63 
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1725 IFD%=1THEN1760 :rem 50 

_ 1730 W=0 trem 143 

~ 1735 IFPEEK(LP+W)=32THEN1750 : rem 145 

/— , 1740 W=W+2:IFW<32THEN1735 : rem 212 

1750 POKELP+W, X I POKELP+W+CO , : POKELP+W+40 , L% ( X-1 , 2 
r~) ) +48 : POKELP+W+40+CO , 6 :rem 34 

1760 IFLE=0THENWB$="" :D%=0:GOTO410 :rem 224 

r*l 1770 X$=LEFT$(WB$,LE) :WB$=X$:GOTO410 :rem90 

1800 POKEMC+1 , 14 : POKEMC+0, : POKEMC+5 , 15 : POKEMC+6 , 1 
5 :rem 252 

1810 POKEMC+24,15:POKEMC+4,17 :rem 152 

' 1820 FORW=0TO200:NEXTW:POKEMC+4,16 :rem 102 

f- , 1830 FORW=lTO20:NEXTW:POKEMC+24,0 :rem 51 

1840 RETURN :rem 173 

(~l 7000 POKEMC+5, 79: POKEMC+6, 129 :POKEMC+24, 15: rem 192 

7010 READX,Y:IFX<0THEN7050 :rem 73 

7020 Z=INT(X/256) :X=X-(Z*256) :rem 134 

^ 7030 POKEMC+0, X: POKEMC+1, Z:P0KEMC+4, 33 :rem 45 

7040 FORZ=lTO(y*75) :NEXTZ:POKEMC+4,32:FORZ=1TO20:N 
EXTZ:GOTO7010 :rem 21 

7050 POKEMC+24,0 : rem 120 

r-) 7060 RETURN :rem 173 

7100 DATA4291, 2, 4291, 1,4050, 1,3608, 2, 3608, 1,3608,1 

:rem 202 

^ 7110 DATA3215, 1,2864, 1,3215, 1,3608, 1,2864, 4, -1,0 

^ :rem 92 

^ 8000 DATAl, 9, 1,2, 2, 3, 3, 2, 3, 4, 4, 2, 5, 12, 1,6, 2, 4, 7, 3, 

2,8,2,4,9,9,1 

/— ) 8010 DATA10, 1,8, 11, 1,5, 12, 4, 1,13, 2, 3, 14, 6, 1,15, 8,1 

,16,2,3,17,1,9,18,6,1 :rem 135 

O 8020 DATA19, 4, 1,20, 6, 1,21, 4, 1,22, 2, 4, 23, 2, 4, 24, 1,8 

_^ ,25,2,4,26,1,9 :rem 59 
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Lawn Mower 



Skill area: Mathematics 
Level: 3, 4 

Equipment required: None 
Modification: No 



The Summer Job 

Dad's decided the time has come to teach you a little responsi- 
bility. This summer, you won't get an allowance. You're going to 
enter the world of high finance instead. 

Your job is to mow lawns in the neighborhood. Dad will let 
you use his power mower, and hell lend you $15 to get your busi- 
ness started. The rest is up to you. 

YouH get $5 for each lawn mowed, but you're responsible for 
buying supplies. You have to buy gasoline, oil, and plastic bags. 
And once in a while, the lawn mower blades must be sharpened. 
The $15 Dad loaned you is for supplies. 

How to Play 

At the beginning of the summer, and again at the start of each 
month, the computer will ask you what supplies you want. You 
may purchase to 9 gallons of gasoline, at the current price. YouH 
also be asked how much oil and how many leaf bags you want to 
buy. Again, choose a number from to 9. Finally, you need to de- 
cide whether you want to have the lawn mower blades sharp- 
ened. The lawn mower can't run forever on dull blades. 

Once you've pvirchased your supplies, it's time to start mow- 
ing lawns. You can mow as many lawns per month as you have 
supplies, but once you run out of gas or oil or plastic bags, or your 
lawn mower blades get dull, you can't mow any more lawns for 
the rest of the month. Buy your supplies wisely. Wait for a good 
price on something before you stock up, but make sure you don't 
run out. If you do, it's going to be a long summer. 

Watch the screen to see your progress. YouH hear the soxmd 
of the lawn mower as the grass is mowed. When each lawn is 
mowed, the computer will give a running tally of how many gal- 
lons of gasoline you have left, how much oil you have in reserve, 
and how many plastic bags you have on hand. Keep this tally in 
mind when you're purchasing supplies next month. After aU, you 
don't want to end the year with 256 plastic trash bags! 
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Scoring 

At the end of the summer, youll find out your cash balance and 
your balance after paying Dad his $15. 

Lawn Mower 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM LAWN MOWER :rem 209 

100 VC=53248 J POKEVC+32 , 13 : POKEVC+33 , 6 : PRINTCHR$ ( 14 
7) :rem 57 

110 DIMMT$(4),ST%(20,1) : rem 190 

120 FORX=0TO20 : FORy=0TOl : READZ : ST% ( X , Y ) =Z : NEXTY, X 

:rein 208 

130 PORX=0TO4:READX$:MT$(X)=X$:NEXTX : rem 27 

140 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rem 71 
150 GOSUB4000 :rem 218 

160 PRINT"{WHT}{7 down} DAD LOANS YOU $15 SO YOU C 
AN RUN A" I rem 88 

170 PRINT" LAWN MOWING SERVICE FOR THE SUMMER." 

:rem 76 

175 PRINT" {down} AT THE END OF THE SUMMER YOU MUST 
PAY {3 SPACES} DAD BACK THE $15." :rem 190 

180 PRINT" {down} you GET $5 FOR EACH LAWN YOU MOW, 
BUT" :rem 226 

185 PRINT" YOU MUST DEDUCT EXPENSES SUCH AS:" 

:rem 218 

190 PRINT" {2 DOWN} {3 SPACES }GAS FOR THE MOWER" 

:rem 186 

193 PRINT" {3 SPACES }OIL FOR THE MOWER" :rem 164 
195 PRINT" {3 SPACES }LAWN AND LEAF BAGS" :rem 170 
200 PRINT" {3 SPACES }M0WER SHARPENING" :rem 220 

210 GOSUB1000:GOSUB1100 : rem 80 

220 PRINT"{CLR}{2 DOWN} IF YOU RUN OUT OF SUPPLIES 
DURING THE" : rem 71 

225 PRINT" MONTH OR IF YOUR MOWER GETS DULL FROM" 

:rem 145 

230 PRINT" LACK OF SHARPENING, YOU LOSE YOUR" 

:rem 176 

240 PRINT" INCOME FOR THE REST OF THAT MONTH." 

:rem 162 

250 PRINT" {2 down} THE OBJECT OF THE GAME IS TO BU 
Y YOUR" :rem 48 

255 PRINT" SUPPLIES WISELY SO THAT YOU CAN EARN" 

:rem 135 

260 PRINT" AS MUCH AS POSSIBLE DURING THE SUMMER." 

:rem 208 

270 GOSUB1100 : POKEVC+33 , 15 : PRINT" {BLK} " ; CHR$ ( 147 ) 

:rem 196 



73 



74 



LJ 
U 

LJ 
LJ 

300 MO=1500:GA=0:OA=0:BA=0:SA=0 :rem 253 LJ 

310 PORL1=0TO4:LM=0:MM=0 :rem 189 

320 X=INT(RND(1)*71)+80:D1$="GAS":D2$="GALLON":GOS LJ 

UB1200 :rem 175 

330 IFy=0THEN350 rrem 178 

340 GA=GA+(Y*100) 8M0=M0-(X*Y) :rem 124 , , 

350 X=INT(RND(1)*51)+90:D1$="OIL":D2$="QUART":GOSU 

B1200 srem 138 LJ 

360 IFY=0THEN380 srem 184 

370 OA=OA+(Y*100) :MO=MO-(X*Y) : rem 143 LJ 

380 X=INT(RND(1)*151)+200:D1$="LAWN BAGS" iD2$="D0Z 

EN":GOSUB1200 :rem 69 W 

390 IFY=0THEN410 rrem 181 . 

400 BA=BA+(Y*12) :MO=MO-(X*Y) :rera 65 ^ 

410 X=INT(RND(l)*201)+400sGOSUB1300sPRINT"{CLR} 

{2 D0WN}{3 SPACESImONTH = ";MT$(L1) :rem 23 
420 PRINT" {2 down} {3 SPACES} DO YOU WANT TO HAVE YO i_j 

UR MOWER{10 spaces} SHARPENED?" :rem 204 

422 PRINT"{2 D0WN}{3 SPACES}C0ST{2 SPACES}= " ;X$ LJ 

:rem 184 

430 PRINT" {2 DOWN} {3 SPACES}ENTER IrVS}Y{OFP} OR ^ 

{RVS}n{OFF}" jrem 152 

440 GETX$:IFX$=""THEN440 rrem 129 

450 IFX$="N"THEN500 srem 55 

460 IFX$<>"Y"THEN440 :rem 131 

470 MO=MO-X srem 149 LJ 

480 X=INT(RND(1)*21)+20sSA=SA+X srem 15 

500 GC=INT(RND(1)*51)+20sOC=INT{RND(1)*31)+10 LJ 

srem 224 

510 BC=INT(RND(1)*4)+1 srem 180 

520 IPMO<0THENGC=GC*2:OC=OC*2sBC=BC*2 srem 222 

530 X=l sIF(GA-GC)<0THEN700 srem 233 

540 X=2sIF(OA-OC)<0THEN700 srem 251 O 

550 X=3sIF(BA-BC)<0THEN700 srem 227 

560 X=4sIF(SA-l)<0THEN700 srem 162 LJ 

570 GA=GA-GCsOA=OA-OCsBA=BA-BCsSA=SA-l srem 34 

580 LM=LM+l8MM=MM+500 srem 211 

600 PRINT"{CLR}{2 D0WN}{3 SPACES }"; MT$ ( LI )$ PRINT" i) 

{2 DOWN} {3 SPACES} LAWN NUMBER ";LM srem 230 
610 X=MM:GOSUB1300 SPRINT" {2 D0WN}l3 SPACES}M0NEY M ^ 

ADE = ";X$ srem 4 

620 PRINT" {2 DOWN} {3 SPACES} GAS LEFT {3 SPACES}=";I LJ 

NT( (GA+100)/100) srem 154 

625 PRINT"{2 DOWN} {3 SPACES}OIL LEFT{3 SPACES}=";I ^ 

NT( (OA+100)/100) srem 176 , , 

630 PRINT"{2 D0WN}{3 SPACES}BAGS LEFT{2 SPACES}="; ^ 

BA srem 207 

640 FORX=2TO10STEP2sGOSUB660sNEXTX srem 225 

650 FORX=10TO0STEP-2sGOSUB660sNEXTXsGOTO500srem 21 LJ 
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660 POKEMC+0,0:POKEMC+1,10:POKEMC+5,15:POKEMC+6,15 
;POKEMC+7,0:POKEMC+8,0 :rein 58 

670 POKEMC+ll,15:POKEMC+12,15 trem 148 

m 675 POKEMC+24,X:POKEMC+8,40:POKEMC+4,129:POKEMC+10 

,17 :rem 155 

n 680 FORY=1TO100:NEXTY : rem 82 

_ 685 POKEMC+4,128:POKEMC+10,16 :rem 160 

690 FORY=1TO20:NEXTY :rem 36 

695 RETURN trem 132 

700 POKEMC+0,0:POKEMC+1,25:POKEMC+7,0:POKEMC+8,0:P 
r~) OKEMC+5,15:POKEMC+6,15 trem 59 

710 POKEMC+24,9:POKEMC+4,33:FORY=1TO500:NEXTY 

:rein 41 

715 POKEMC+4,32:FORY=1TO20:NEXTY:POKEMC+24,0:PRINT 
" CHR$(147); :reni 225 

720 ONXGOTO730,740,750,760 :rem 185 

730 PRINT"{2 D0WN}{3 SPACES}0UT OF GAS i " :GOTO770 
r~| trem 39 

740 PRINT" {2 DOWN} {3 SPACES }OUT OF OILl" :GOTO770 
^ :rem 49 

750 PRINT"{2 D0Vnsr}{3 SPACES}OUT OF LAWN BAGS1":G0T 
' 0770 :rem 157 

/— j 760 PRINT" {2 DOWN} {3 SPACES }M0WER NOT SHARP J" 

:rem 170 

770 PRINT" {2 DOWN} {3 SPACES }LAWNS MOWED = ";LM 

:rem 163 

O 780 X=MM:GOSUB1300 : rem 76 

785 PRINT"{2 DOWN} {3 SPACES}M0NEY MADE{2 SPACES}= 
~ {2 SPACES }";X$ : rem 42 

r-i 790 MO=MO+MM:X=MO:GOSUB1300:PRINT"{2 DOWN} 

{3 SPACES} BALANCE {5 SPACES} ={2 SPACES }";X$ 
(— I :rem 202 

795 GOSUB1100:NEXTL1 :rem 221 

800 PRINT"{CLR}{2 DOWN} ";SPC( 14 ); "SUMMER OVERl"jX= 
_ MO:GOSUB1300 :rem 147 

~ 805 PRINT" {2 DOWN} 1 3 SPACES} CASH ON HAND = ";X$ 

» :rem 91 

' 810 X=1500:GOSUB1300iPRINT"{2 D0WN}{3 SPACES}LESS 

m {space} LOAN {4 SPACES }= ";X$ trem 244 

820 MO=MO-1500fX=MOtGOSUBl300tPRINT"{2 DOWN} 

{3 SPACES }NEW BALANCE {2 SPACES }= ";X$ trem 220 
830 PRINT" {2 DOWN} {3 SPACES } REPLAY? ({RVS}Y{0FF} O 
R {RVS}n{OFF})" :rem 123 

^ 840 GETX$:IFX$=""THEN840 trem 137 

~ 850 IFX§="Y"THEN300 :rem 68 

860 IFX$<>"N"THEN840 trem 128 

870 PRINTCHR$(147) trem 26 

r-) 880 END trem 119 

1000 POKEMC+24,15:POKEVC+21,l trem 144 
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1005 FORX=0TO20:TT$=RIGHT$(TT$,LEN(TT$)-2) :TT$=TT$ ^ 

+"{2 SPACES}" :rein 126 , , 

1010 PRINT" {home} {5 D0WN}";TT$; :rem 61 ^ 

1015 Y=INT(ST%(X,0)/256) :rem 54 ^ 

1020 POKEMC+0,ST%(X,0)-(Y*256) : rem 120 

1025 POKEMC+l,Y:POKEMC+4,17 :rein 84 LJ 

1030 y=PEEK(VC+0)-14 :rein 86 

1035 IFY<1THENY=255:POKEVC+0,Y:POKEVC+16,0 :rem 81 W 
1040 POKEVC+0,Y trem 109 

1045 FORY=1TOST%(X,1)*60:NEXTY :rem 79 ^ 

1050 POKEMC+4,16:FORY=1TO30:NEXTY,X irem 187 j, 

1055 POKEMC+24,0:POKEVC+21,0 :rera 99 

1060 PRINT" {home} {3 DOWN} " ; SPG ( 15 ) ; " {RVS}LAWN MOWE [_J 

r{OFF}"; :reni 208 

1070 RETURN :rem 168 LJ 

1100 PRINT" {HOME} {24 DOWN} {12 SPACES} (PRESS ANY KE 

Y)"; :rein 40 ^ 

1110 GETX$:IFX$=""THEN1110 trem 215 

1120 RETURN :rem 164 ^ 

1200 PRINT"{CLR}{2 DOWN} {3 SPACES}M0NTH = ";MT$(L1 ^ 

):GOSUB1300 :rem 88 

1210 PRINT"{2 DOWN} {3 SPACES } ITEM{ 2 SPACES}= ";D1$ LJ 

:PRINT"{2 DOWN} {3 SPACES } C0ST{ 2 SPACES}= ";X$ 

;" PER ";D2$ :rem 140 LJ 

1220 PRINT" {2 DOWN} {3 SPACES}H0W MANY DO YOU WANT? , 

":PRINT"{2 DOWN} {3 SPACES}ENTER {RVS}0{OFF} T ^ 

HROUGH {RVS}9{0FF}" : rem 97 

1230 GETD1$:IFD1$=""THEN1230 : rem 23 

1240 IFD1$<"0"ORD1$>"9"THEN1230 : rem 137 LJ 

1250 Y=VAL(D1$) : RETURN : rem 69 

1300 X$=STR?(X) :Z=LEN{X$) : rem 192 LJ 

1310 IFZ<3THENX$=LEFT$ (X$ , 1 )+"$0 .0"+RIGHT$ (X$ , 1 ) iG 

OTO1370 :rem 212 ^ 

1320 IFZ<4THENX$=LEFT$(X$,l)+"$0."+RIGHT$(X$,2) :G0 ,1 

TO1370 :rem 167 

1330 Z=Z-3:X$=LEFT$(X$,l)+"$"+MID$(X$,2,Z)+". "+RIG [_j 

HT$(X$,2) :rem 134 

1370 IFLEFT$(X$,1)=" "THENX$=RIGHT$ (X$,LEN(X$ )-l ) : LJ 

GOTO1370 :rem 31 

1380 RETURN :rem 172 ^ 

3000 DATA8583, 2, 4291, 2, 4291, 2, 5407, 1,5728, 2, 10814, , , 

2,10814,2,9634,2 :rem 240 ^ 

3010 DATA8583, 1,7217, 2, 8583, 2, 4291, 2, 4291, 2, 5407, 2 |^ 

,6430,2,6430,2 :rem 140 

3020 DATA6430,2,7217,2,8101,2,8101,2,8583,2 LJ 

:rem 111 

3100 DATAMAY, JUNE, JULY, AUGUST, SEPTEMBER : rem 107 LJ 
3200 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 3, 128, 0,7, 128,0 

,3,128,0,1,0,0,3 :rem 93 ^ 

u 
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O 3210 DATA128, 0,3, 128, 0,31, 128, 0,35, 128, 0,67, 128,0, 



131,128 :rein 7 

3220 DATAl, 3, 128, 2, 3, 128, 4, 2, 64, 8, 4, 32, 80, 8, 16, 224 
,4,8,80,2,4,0 :rein 38 

4000 REM *** SETUP FOR SPRITE *** irem 243 

4010 FORX=832T0832+63sREADZ:POKEX,Z:NEXTX :rein 122 
4020 POKEVC+0, 60 :P0KEVC+1 , 55 :P0KEVC+16, 1 :POKEVC+23 
,l:POKEVC+28,0 : rem 66 

4030 POKEVC+29,1:POKEVC+39,0:POKE2040,13 :rem 54 
4040 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 1 2 
9 trem 6 

4050 TT$="{24 SPACES) LAWN MOWER" :rem 210 

m 4060 RETURN :rem 170 
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Skill area: Science 
Level: 3, 4 

Equipment required: None 
Modification: Yes 
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Making Meals 

'Tlan a Menu" lets you pick a sample meal. Then the computer 

tells you how nutritious the meal is and how much weight you 

would gain or lose by following such a meal-planning strategy all ^ 

the time. ^ 

How to Play CJ 

The game begins by asking for your sex and your age. Indicate the 
proper answer by typing M, F, or the numerical age. Press the ^ 
RETURN key to enter the information. LJ 

Next will appear a number of foods from six different food 
categories: main courses, vegetables, fruits, breads, drinks, and 
desserts. Category by category, choose the foods you would pick LJ 
for a sample meal. Make your selections by typing the letter that 
appears to the left of the item. To move to another category, press 
the letter Z. (_j 

Choose as many items from a particular category as you 
wish. If nothing in a category looks appealing, by-pass the cate- ^ 
gory altogether by pressing Z . 

When the sample menu is complete, the computer will , 
analyze it to see what quantities of the following items it contains: 

calories riboflavin W 

protein niacin 

vitamin A calcium 

vitamin C iron ^ 
thiamin [_j 

The computer multiplies all totals by 3 to indicate what per- ^ 
cent of the minimum daUy requirements of those calories or 

nutrients you would get if you ate three similar meals in a day. LJ 

The percentage total for each item will be printed next to its name. ^ 

Scoring 

Each sample meal is rated according to the number of calories it ^ 
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contains and the amount of nutrients found in the chosen foods. 
The computer rates each meal fair, average, good, very good, or 
excellent. 

Each meal also is evaluated to tell you how many pounds per 
week you would gain or lose if all your meals contained the same 
number of calories as the sample meal. The calorie coimt applies 
to an average-sized person whose metabolism burns food at a 
normal rate. Overweight or underweight players should take this 
into account and use calorie charts, not Plan a Menu, to de- 
termine how many calories they should consume. 

Plan a Menu 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM PLAN A MENU/28JUL83 trem 165 

100 DIMNT%(16,1),CT%(2,7,1),HT(18,8),VT(8),DT$(8), 

GT$(4) :rem 152 

110 PORX=0TO16:FORy=0TOl :rem 3 

120 READZ:NT%(X,Y)=Z:NEXTY,X :rem 37 

130 VC=53248:MC=54272 :rem 123 

140 FORX=54272TO54296jPOKEX,0:NEXTX :rem 176 

150 P0KEVC+32,6sP0KEVC+33,ll :rem 113 

160 SM=((PEEK(53272)AND240)/16)*1024 :rein 127 

200 PRINTCHR$(147);"{WHT}{D0WN}******************* 

*********************■•. :rem 109 

202 PRINT" {8 SPACESlP L A N{4 SPACES}a{4 SPACES}M 

{SPACEIe N U" srem 6 

204 pRXiTi"' **************************************** 

"; :rem 50 

210 PRINT" {2 DOWNIyOU WILL BE SHOWN A NUMBER OP FO 

CDS FROMSIX DIFFERENT FOOD GROUPS." :reni 224 
220 PRINT" {D0WN}Y0U MAY SELECT AS MANY ITEMS AS YO 

U WANTFROM EACH GROUP." : rem 48 

230 PRINT" {down} IF DESIRED, YOU MAY BYPASS A GROUP 
AND {2 SPACES} NOT PICK ANYTHING FROM IT." 

:rem 2 

240 PRINT" {down} WHEN YOUR MENU IS COMPLETE, IT WIL 
L BE" :rem 171 

250 PRINT "ANALYZED FOR ITS NUTRITIONAL VALUE." 

trem 155 

260 GOSUB1000 J rem 217 

270 FORX=0TO2:FORY=0TO7:FORW=0TO1 :rem 148 

280 READZsCT%(X,Y,W)=Z:NEXTW,Y,X :rem 39 

290 FORX=0TO8:READX$:DT$(X)=X$:NEXTX :rem 29 

300 FORX=0TO4:READX$:GT$(X)=X$:NEXTX trem 20 

310 PRINT" {2 DOWN} {8 SPACES }( PRESS ANY KEY TO STAR 
<jty trem 103 
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320 
330 
340 
400 
410 
420 

430 

440 

450 
460 

470 

480 
490 
500 
510 
520 
530 
540 
550 
560 
600 
610 
620 

630 
640 
650 
660 
670 
700 

710 
720 
725 
730 
740 
750 
760 
770 
780 

790 
800 
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GETX$ : IFX$=" "THEN320 
RESTORE 

READX$ : IPX? <> " $ "THEN340 
REM **MA1N LOOP** 
PORX=0TO8 : VT ( X ) =0 : NEXTX 



:rem 123 
:rem 186 
:rem 28 
:rem 127 
trem 231 



PRINTCHR$(147);"{3 DOWN} PLEASE ENTER YOUR SEX: 
" :rem 116 

PRINT" {DOWN} {4 SPACES} ENTER {YEL}M {WHT}F0R MA 
LE OR IyEL}F {WHT}F0R FEMALE" :rem 8 

S$=" " I POKE198 , : INPUT" { DOWN} { 2 SPACES } " ; S$ 

:rein 200 

IFS$<>"M"ANDS$<>"F"THEN440 t rem 191 

PRINT" {3 DOWN} PLEASE ENTER YOUR AGE IN YEARS:" 

:reni 71 

X$=" " : POKE198, : INPUT" { DOWN} { 2 SPACES } " ;X$ 

:rein 213 



X=VAL(X$) : IFX<1THENX=1 

IFX>99THENX=99 

IFX<10THENY=0:S$="X" 

IFS$="M"THENY=1 

IFS$="F"THENY=2 

Z=0 

IFX <=CT% ( Y , Z , ) THEN5 60 
Z=Z+1 :GOTO540 
CL%=CT%(Y,Z,1) 
PRINTCHR? ( 147 ) ; : READX$ 
IFX$=" $$$ "THEN800 

PRINT" {down} {RVS} " ;X$; " {OFF} {DOWN} 

READX$ : IFX$=" $$ "THEN700 
S$=CHR$(X+65) 

PRINT"{RVS}";S$;"{OFF} - ";X$ 
FORY=0TO8 : READZ : HT ( X , Y) =Z : NEXTY 
X=X+1:GOTO630 



:reni 100 
:rein 106 
:rem 152 
:reni 96 
: rem 91 
:rem 95 
:rem 11 
:rem 243 
:rera 213 
:rem 30 
:rem 86 
'; :X=0 

:rem 159 
:rem 5 
:rem 142 
:rem 37 
:rem 65 
:rem 242 

PRINT "{ DOWN }{ RVS }Z{ OFF} - (GO TO NEXT CATEGORY 



)" 



GETX$ : IFX$=" "THEN710 
IFX$<"A"ORX$>"Z"THEN710 
IFX$="Z"THEN600 
Y=ASC(X$)+64 

IH=0 :FORX=SM+120TOSM+960STEP40 
I FPEEK ( X ) =YTHENIH=X 
NEXTX: IFIH=0THEN710 
FORZ=0TO39 : POKE ( IH+Z ) , 32 : NEXTZ 
FORX=0TO8:VT(X)=VT(X)+HT(Y-129,X) :NEXTX 

:rem 210 

GOTO710 :rem 113 

PRINT" {2 D0WN}THREE MEALS A DAY SIMILAR TO THE 
ONE YOU"; :rem 67 



:rem 203 
trem 129 
:rein 37 
trem 73 
:rem 105 
:rem 90 
:rem 228 
trem 194 
trem 143 
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Level 

3 

810 PRINT" JUST SELECTED WOULD FILL THESE NEEDS: 

{2 down!" :reni 239 

820 Y=0:FORX=0TO8 :rein 33 

830 X$=DT$(X) :reni 185 

840 IFLEN(X$) <10THENX$=X$+" {shift-space}" :GOTO840 

: rem 246 

850 Z=VT(X)*3:IFX=0THENZ=(Z*100)/CL%:W=Z :rem 169 
855 IFX>0ANDZ>=100THENY=Y+1 trem 170 

860 GOSUB1100:PRINT"{3 SPACES }" ;X$ ; " -";S$ 
870 NEXTX :rem 54 

880 X=ABS(W-100) :Y=Y-INT(X/20) :Y=INT(Y/2) :IFY<0THE 

NY=0 :rem 53 

890 IFY>4THENY=4 : rem 244 

900 PRINT" {2 DOWNItHE NUTRITIONAL VALUE OF THIS ME 

NU WOULDBE RATED ";GT$(Y);"." i rem 24 

910 PRINT" {2 DOWN} {12 SPACES} (PRESS ANY KEY)" 

:rem 60 

920 GETX$:IFX$=""THEN920 : rem 135 

930 X=CL% * 7 : Y=VT ( ) * 21 : IFX=YTHENX=-1 : GOTO970 

:rem 186 



940 IFX>YTHENX5!="L0SE" :Z=X-Y:GOTO960 
950 X$="GAIN":Z=Y-X 
960 X=INT(Z/3500) :IFX<1THENX=1 
970 GOSUB1200 
980 PRINT" {3 DOWN} {2 SPACES }WANT TO PLAN 
ENU?{2 SPACES} ( {RVS}y{OFF} OR {RVS}N 

985 GETX$:IPX$=""THEN985 
990 IFX$="Y"THEN330 
995 IFX$<>"N"THEN985 

998 GOSUB1000:PRINTCHR$(147) 

999 END 



:rem 59 
:rem 105 

:rem 68 
:rem 227 

another m 
{off})" 

J rem 19 
:rem 157 
:rem 76 
:rem 147 
:rem 160 
:rem 130 



1000 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : 
9 

1010 POKEMC+24,15 
1020 FORX=0TO16 : POKEMC+4, 17 
1030 Y=NT%(X,0) :Z=»INT(Y/256) iY=Y-(Z*256 
1040 POKEMC+0 , Y : POKEMC+1 , Z 
1050 FORY=1TONT%(X,1)*100:NEXTY 
1060 POKEMC+4, :FORY=1TO20 :NEXTY,X 
1070 POKEMC+24,0 
1080 RETURN 

1100 S$=STR$(INT(Z) )+"%" 
1110 IFLEN(S$)>=7THENRETURN 
1120 S$=" {SHIFT-SPACE} "+S$:GOTO1110 
1200 PRINTCHR$ { 147 ) ; " { 3 DOWN} FOLLOWING . 

THE ONE JUST SHOWN"; 
1210 IFX>0THEN 1220 



POKEMC+6,12 
:rem 255 
:rem 164 
:rem 101 
:rem 32 
:rem 63 
:rem 113 
:rem 132 
:rem 116 
:rem 169 
:rem 14 
:rem 186 
:rem 52 
MENU LIKE 
:rem 15 
:rem 13 
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1215 PRINT"WOULD CAUSE YOU TO KEEP YOUR SAME 

{7 SPACES} WEIGHT LEVEL .": RETURN :rem 88 

1220 PRINT"WOULD CAUSE YOU TO ";X$;X; "POUNDS" 

trem 212 

1230 PRINT"EACH WEEK." : rem 2 

1240 RETURN :rem 167 

3000 DATA8101, 2, 7217, 2, 6430, 4, 8101, 2, 7217, 2, 6430, 4 

,6430,2,6430,2,6430,2 :rem 198 

3010 DATA6430, 2, 7217, 2, 7217, 2, 7217, 2, 7217, 2, 8101, 2 

,7217,2,6430,4 trem 125 

3100 DATAl, 1100, 2, 1250, 3, 1400, 5, 1600, 7, 2000, 9, 2200 

,0,0,0,0 :rem 9 

3110 DATAll, 2500, 13, 2700, 17, 3000, 21, 2800, 34, 2800, 5 

4,2600,99,2400,0,0 :rem 27 

3120 DATAll, 2250, 13, 2300, 15, 2400, 17, 2300, 21, 2000, 3 

4,2000,54,1850,99,1700 trem 224 

3200 DATACALORIES, PROTEIN, "VITAMIN A", "VITAMIN C", 

"THIAMIN", "RIBOFLAVIN" :rem 232 

3210 DATANIACIN, CALCIUM, IRON : rem 32 

3300 DATAFAIR, AVERAGE, GOOD, "VERY GOOD ", EXCELLENT 

: rem 45 

3400 DATA"?" :rem 73 

4000 DATA" {8 SPACESlM A I N{4 SPACES}C O U R S E S 
{8 spaces}" trem 107 

4010 DATA"REFRIED BEANS" , 142, 14, 0, 0,0, , 0, . 5 , 3 

:rem 155 

4020 DATA"ROAST BEEF" , 182 , 57 , . 3 , 0, 3 , 12 , 20, 1 . 1 , 18 

:rem 212 

4030 DATA"BEEP LIVER" , 195 , 50, 908, 38, 15 , 209, 70, .9 , 4 
2 trem 138 

4040 DATA"FRIED CHICKEN" , 201 , 58, 3 , 0, 4, 22 , 30, 1 . 2 , 11 

trem 98 

4050 DATA"HARD BOILED EGG" , 79 , 13 , 5 ,0, 2 , 8, . 2, 3 , 6 

trem 192 

4070 DATA"BAKED HAM" , 179 , 57 , 0, , 37 , 15 , 25 , 1 . 1 , 18 

trem 127 

4080 DATA"MEAT LOAF" , 230 , 34, 2 , 0, 18 , 14, 17 , 7 , 13 

trem 46 

4090 DATA"BREADED PERCH" , 193 , 36, 0, 0, 6, 5 , 8, 3, 6 

trem 130 

4100 DATA"PORK CHOP" , 308, 46, 0, 0, 55 , 14, 25 , .9, 15 

trem 125 

4110 DATA"T-BONE STEAK" , 212 , 64, .4,0, 5 , 13 , 28, 1 . 1 , 19 

trem 91 

4120 DATA"TUNA FISH" , 168, 54, 1 .4, 0, 3 , 6 , 51 , . 7, 9 

trem 75 

4130 DATA"BAKED BEANS" , 156, 12 , 3 , 5 , 7 , 2 , 4, 7 , 13 

trem 17 

4140 DATA"BEEF STEW" , 209, 23 , 46, 27 , 9, 9, 23 , 3 , 16 

trem 76 



82 



4150 DATA"CHILI CON CARNE" , 333, 29, 3 ,0, 5 , 11, 17, 8, 24 

:rein 106 

4160 DATA"MACARONI & CHEESE" , 215, 13, 9,0, 7, 12 , 5, 18, 
5 :reni 164 

4170 DATA"CHEESE PIZZA" , 354, 28 , 19, 20, 25 , 29, 19, 33 , 1 
5 :rem 203 

4180 DATA"CHICKEN SOUP" , 59, 5 , . 9, 0, 1 . 3 , 1 . 2 ,4, . 9, 3 

:rem 30 

4190 DATA "SPAGHETTI & MEAT", 332, 29, 32, 37, 17, 18, 20, 
12,21 :reni 121 

4200 DATA"BEEP TACO" , 216, 38, 7, 7 , 7 , 11 , 15 , 17, 14 

trem 39 

4210 DATA"??" I rem 109 

4500 DATA" {9 SPACES }V EGETABLES{12 SPACES} 

srem 9 

4510 DATA"ASPARAGUS",12,2,ll,27,7,6,4,1.3,2:reni 32 
4520 DATA"GREEN BEANS" , 16, 1 . 5, 7, 13, 3,4, 1 . 5, 3, 2 

:rem 133 

4530 DATA"LIMA BEANS" , 94, 10, 5 , 23 , 10, 5 , 6,4, 12 

:rein 13 

4540 DATA"COOKED BEETS " , 31 , 1 . 2 , . 3 , 3 , . 7 , 1 . 2 , . 5, 1 .6, 
3 :rem 137 

4550 DATA"BROCCOLI STALK", 20,4, 39, 117, 5 , 9, 3 , 7, 3 

:rein 42 

4560 DATA"CABBAGE",13,1.1,1.7,28, .7, .6, .5,3,1.1 

:rein 113 

4570 DATA"CARROT STICKS", 21, .9, 110,7,2,1.8,1.5,1 .9 
,2 trem 16 

4580 DATA"CAULIPLOWER" ,13, 2, .7, 55, 3, 3, 2, 1.3, 2 

:rem 185 

4590 DATA"CELERY STICKS" , 10, . 8, 3 , 8, 1 . 3 , 1 .2 , 1 , 2 , 1 . 1 

:rem 153 

4600 DATA"CORN ON THE COB" , 114, 6, 10, 18, 10, 8, 9 ,. 4, 4 

I rem 54 

4610 DATA"BLACKEYE PEAS" , 134, 15 , 9, 35 , 25 , 8, 9, 3 , 14 

4620 DATA"GREEN PEAS" , 54, 6, 10, 17, 15, 4, 7 , 1 . 5 ,8 

:rem 85 

4630 DATA"BAKED POTATO" , 132 , 6, 0, 47, 9,4, 12 , 1 . 3, 6 

:rein 228 

4640 DATA"FRENCH PRIES" , 233 , 6, 0, 30, 7, 4, 13, 1 . 3, 6 

:rein 223 

4650 DATA"MASHED POTATOES" , 63 ,3 , .4, 17, 5 , 3 , 5, 2 , 2 

:rein 65 

4660 DATA"SWEET POTATO" , 76, 1 . 9, 89, 20, 3, 2 , 2, 2 , 3 

:rem 237 

4670 DATA"SUMMER SQUASH" , 16 , 1 . 7 , 9, 20, 3 , 5 , 4, 3 , 2 

:rein 2 

4680 DATA"SLICED TOMATO" , 22 , 1 . 7, 18, 38, 4, 2 ,4, 1 . 3, 3 

:rem 113 
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4690 DATA"LETTUCE SALAD" , 13 , 1 . 1 , 28, 43 , 2 , 2 , 1 . 5, 3 , 3 

:reni 91 

4700 DATA"??" :rem 113 

5000 DATA" {6 SPACES}G R A I N{4 SPACES}? R D U C 
T S{6 SPACES}" :rem 8 

5010 DATA"BAGEL", 165, 9, .6,0,9,6,6, .9,7 :rem 183 
5020 DATA"BISCUIT",103,3,0,0,5,5,4,3,2 : rem 238 
5030 DATA"WHITE BREAD" , 61 , 3 , 0, 0, 6 , 4, 4, 1 . 9, 3 

:reni 244 

5040 DATA"WHEAT BREAD" , 55 , 4, 0, 0, 4, 1 .8, 3 , 2 , 3 

:reni 235 

5050 DATA"CORNBREAD",191,9,5,1.7,9,12,5,9,7:rem 36 
5060 DATA"CORN FLAKES" , 72 , 2 , 0, 0, 5 , 1 . 2 , 2 , . 3 , 1 . 7 

:rein 135 

5070 DATA"HOMINY GRITS" , 62 , 2, 1 . 5 , 0, 3 , 2 , 3 , . 1 , 2 

trem 154 

5080 DATA"EGG NOODLES" , 100, 5, 1 . 1 ,0, 7 , 4, 5 , . 8, 4 

:rem 94 

5090 DATA"OATMEAL",66,4,0,0,7,1.2, .5,l.l,4:rem 170 
5100 DATA"PANCAKE",61,3,1.4,0,4,5,1.5,6,1.7 

:rein 201 

5110 DATA"COOKED RICE" , 112 , 3 , 0, 0, 7 ,4, 5 , 1 , 5 : rem 182 
5120 DATA"DINNER ROLL" , 156 , 8, 0, 0, 13 , 7 , 9, 2 , 7 s rem 28 
5130 DATA"WHITE TOAST" , 61 , 3 , 0, 0, 6 , 4 , 4, 1 . 9, 3 : rem 34 
5140 DATA"CORN TORTILLA" , 63 , 2 , . 1 , 0, 3 , 1 . 2 , 1 . 5 , 6 , 5 

:rem 62 

5150 DATA"WAFPLES",130,7,2,0,6,8,3,11,3 : rem 32 
5160 DATA"??" :rem 114 

5500 DATA" {15 SPACES }F R U I T S{14 SPACES}": rem 5 
5510 DATA"MEDIUM APPLE" , 80, . 5 , 2 , 10, 3 , 1 . 8, . 5 , 1 , 2 

:rem 214 

5520 DATA"MEDIUM BANANA" , 101 , 2 , 5 , 20, 4 , 4, 4, 1 , 4 

:rem 116 

5530 DATA" CANTALOUPE" ,29, 1.1, 65, 53, 3, 1.8, 3, 1.3, 2 

:rem 50 

5540 DATA"FRUIT SALAD" , 99 , 2 , 11 , 73 , 7 , 5 , 4, 5 , 5 : rem 33 
5550 DATA"GRAPEFRUIT HALF" , 48 , . 9 , 10, 75 , 3 , 1 . 2 , 1 , 1 . 9 
, 3 : rem 45 

5560 DATA"GRAPES", 48, .6,1.4,5,3,1.2,1, .9,1. 7:rem 6 
5570 DATA"MEDIUM ORANGE" , 65 , 2 , 5 , 110, 9, 3 , 3, 5, 3 

:rem 163 

5580 DATA"MEDIUM PEACH" , 100, .8, 11 , 6 , .9, 1 . 5 , 4, . 5, 2 

:rem 49 

5590 DATA"MEDIUM PEAR" , 101 , 1 . 9 , . 7 , 12 , 2 , 4, 1 , 1 . 3 , 3 

:rera 244 

5600 DATA" PINEAPPLE SLICE" , 90 , .6 , 1 . 2 , 15 , 7 , 1 . 2 , 1 , 1 . 

3,2 :rem 68 

5610 DATA"STEWED PRUNES" , 108, 1 . 1 , 9, 1 . 7 , 1 . 3 , 2 , 2 , 1 . 9 

,5 :rem 26 
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Level 

p ^ 

5620 DATA"RAISINS", 123, 1.7, .2,0,3,1.8,1,3,8 

:rem 242 

5630 DATA"STRAWBERRIES", 28, .8, .9,73,1.3,3,2,1.6,4 
r~) :rem 182 

5640 DATA"WATERMELON",52,1.5,24,23,4,4,2,1.4,6 

:rem 224 

5650 DATA"APPLESAUCE", 116, .5,1,1.7,2, .6,0, .5,3 
" :reni 187 

^ 5660 DATA"DRIED APRICOTS" , 39, 1 . 2 , 33 , 3 , 0, 1 . 2, 3 , 1 .0, 

4 :rem 213 

r->, 5670 DATA"$$" rrem 120 

6000 DATA"{15 SPACES}D RINK S{14 SPACES}" 

:rem 239 

^ 6010 DATA"BUTTERMILK",99,18,1.6,4,6,22, .7,29, .7 

:rem 39 

^ 6020 DATA"HOT COCOA" , 64, 15, 5 , 3 , 5 , 19, 1 .4, 22, 3 : rem 3 

6030 DATA"WHOLE MILK" , 150, 18, 6, 4, 6 , 23 , 1 , 29, . 7 

r*\ :rem 100 

6040 DATA "CHOCOLATE MILK", 208, 18, 6, 4, 6, 24, 1 .6, 28, 3 

'"^ :rem 174 

6050 DATA"2% LOWFAT MILK", 121 , 18, 10, 4, 6, 24, 1 . 1 , 30, 

~ .7 :rem 140 

^ 6060 DATA"SKIM MILK" , 86, 19, 10, 4, 6, 20, 1 . 1 , 30, . 6 

:reni 115 

O 6070 DATA" CHOCOLATE MILKSHAKE" , 356, 20, 5, 0, 9, 39, 1 . 9 

,40,5 rrem 29 

r-i 6080 DATA"ORANGE JUICE" , 56, 1 .4, 5 , 93 , 7 , .6, 2, 1 . 1 , .6 

:rem 68 

6090 DATA"TOMATO JUICE" , 26, 1 . 7, 19, 32, 4, 2 , 5, .9, 6 
^ :rem 2 

6100 DATA"BLACK COFFEE" , 2, 0, 0, 0, 0, 0, 3 , . 3 , 1 . 1 
O :rem 252 

6110 DATA"COLA SOFT DRINK" , 96 , 0, , , 0, , , 0, 

:rem 116 

^ 6120 DATA"BEER", 151, 1.7, 0,0, 0,6, 11, 1.8,0 : rem 237 

~ 6130 DATA"WATER", 0,0, 0,0, 0,0, 0,0,0 :rem 231 

6140 DATA"$$" :rem 113 

6500 DATA" {12 SPACES }D ESSERTS{13 SPACES}" 
r-) : rem 150 

6510 DATA"VANILLA ICE CREAM" , 135 , 5 , 5 , . 6, 1 . 7 , 10, . 3 , 
'"^ 9, .3 :rem 79 

6520 DATA"STRAWBERRY YOGURT",225,20,2,2,5,22,1,31, 
.8 :rem 169 

^ 6530 DATA"AMERICAN CHEESE" , 106, 14, 7 , 0, . 5 , 6, . 1, 17 , . 

6 :rem 204 

^ 6540 DATA"SWISS CHEESE" , 107 , 18, 5, 0, .4, 6 , . 1 , 27 , . 3 

irem 38 

O 6550 DATA"SALTED PEANUTS" , 211 , 14, 0, 0, 8, 3 , 31 , 3 , 4 

:rem 38 
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6560 DATA"COTTAGE CHEESE" , 109, 29, 3 ,0, 1 .5 , 10, . 7, 6, . LJ 
8 trem 205 

6570 DATA"GRAHAM CRACKERS", 54, 1 . 7 , 0, 0, . 7 , 1 .8, 1 , .6 , ^ 
1-1 : rem 58 

6580 DATA"BAKED CUSTARD" , 152 , 16 , 9 , 0, 3 , 15 , . 5, 15, 3 

:reni 39 

6590 DATA "CHOCOLATE BAR" , 147 , 3 , 1 . 5 , 0, 1 . 3 , 6 , . 5 , 7, 1 . 

7 :rem 176 ^ 

6600 DATA"DEVIL'S FOOD CAKE" , 234, 5, 2, 0, 1 . 3 ,4, 1 , 4, 3 

:rem 110 ^ 

6610 DATA"SPONGE CAKE" , 196, 8, 6, 0, 2, 5 , . 5 , 2 , 4 : rem 5 , , 

6620 DATA"SUGAR COOKIE" , 89, 1 . 9, . 4,0, 3 , 2 , 2 , 1 .6 , 1 . 7 
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:rem 81 

6630 DATA"CAKE DOUGHNUT" , 125 , 2 , . 5 , 0, 5 , 4, 3 , 1 . 3, 2 

:reni 248 ^ 

6640 DATA"GELATIN DESSERT", 71, 3,0,0,0,0,0,0,0 

:reni 195 LJ 

6650 DATA"APPLE PIE" , 403 , 5, . 9, 3 , 10,8, 9, 1 . 3 , 6 

:rein 11 

6660 DATA"POPCORN",23,1.2,0,0,0,.6,.5,.1,1.1 ^ 

I rem 25 

6670 DATA"CHOCOLATE PUDDING" , 161 , 10, 3 , 0, 2 , 12 , . 5 , 13 
,2 trem 68 

6680 DATA"DANISH PASTRY" , 274, 7 ,4, 0, 3 ,6, 3 , 3 , 3 LJ 

:rem 146 

6690 DATA"ORANGE SHERBET" , 135 , 2, 2, 3 , 1 . 3, 2 .4, . 3 , 5 , . ^ 

8 :rem 218 

6700 DATA"$§" :rem 115 

7000 DATA"$$$" :rem 145 
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Skill area: Science 
Level: 3, 4 

Equipment required: None 
Modification: Yes 

The Stargazer 

You are the emperor's stargazer. The emperor expects you to fore- 
tell the futtire by looking at the constellations. He also wants you 
to predict the weather by peering at the stars. 

As far as you know, you can't predict the future from the 
stars. And the only way the constellations can give you a weather 
report is if you can't see them because of the clouds. But the em- 
peror wants a stargazer, and you've learned some things from 
watching the sky. Each constellation has its own history, and peo- 
ple like to have you tell them about it. 

If you hope to keep your high-paying job with the emperor, 
the least you can do is know where the constellations are. Also, 
you should know something about each one so you can impress 
the emperor with your knowledge. 

How to Play 

The computer will present one of 32 constellations and ask for its 
name. Because constellations change position as the seasons 
progress, the picture will be the one that best represents the con- 
stellation as seen from the ground. The computer will also state 
what month the constellation looks like this, as well as telling 
which direction you have to look if you're in North America. 

Look at the constellation and see if you can determine its 
name from its shape. If you can, type the name of the constella- 
tion on the computer keyboard and press RETURN. If you aren't 
sure, make a guess or hit the RETURN key. 

If you can't guess the name of the constellation by its shape 
alone, the computer will give you a clue that may help you iden- 
tify the constellation. If the clue helps, type the answer on the 
keyboard. 

Since the computer will count any misspelled name as a 
wrong answer, refer to this list of the 32 constellations used in 
"Stargazer": 
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Andromeda 


Cassiopeia 


Hercules 


Pisces 


Aquarius 


Cepheus 


Hydra 


Sagittarius 


Aquila 


Cetus 


Leo 


Scorpius 


Aries 


Corona Borealis 


Lepus 


Serpens 


Bootes 


Cygnus 


Libra 


Taurus 


Cancer 


Draco 


Orion 


Ursa Major 


Cards Major 


Eridanus 


Pegasus 


Ursa Minor 


Capricornus 


Gemini 


Perseus 


Virgo 



If you still can't guess the constellation after receiving a clue, 
press RETURN and the computer will tell you the name of the 
constellation and let you look at its star pattern and name for a 
few seconds. Then the computer will give you another constella- 
tion to guess. 

You can quit pla5dng at any time by entering END on the key- 
board. Your percentage score will not be affected if you quit before 
all questions have been asked. 

Scoring 

YouH receive 10 points for each constellation you guess by its 
shape alone, and 2 points for each constellation name you guess 
after getting a due from the computer. 

Your score will be given in two areas: the number of points, 
which will appear in the Total Points category, and a Percentage 
Score. 

If you don't do well the first time, try again. Remember, it 
took thousands of years for ancient societies to spot constellations 
in the sky and develop stories about each one. 

Stargazer 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM STARGAZER :rem 200 

100 NS=32 :rem 212 

110 DIMCT$(NS-1,3),ST%(NS-1,19),NT%(14,2) :rem 187 
120 PRINTCHR$(147) :VC=53248:MC=54272 rrem 47 

122 FORX=54272TO54296:POKEX,0:NEXTX :rem 176 

124 C$="{40 SPACES}" trem 127 

126 POKEVC+32,6:POKEVC+33,15 :rem 120 

130 FORX=0TO14 : FORY=0TO2 : READZ : 1IT% ( X , Y ) =Z : NEXTY , X : 

X=RND(-TI) I rem 158 

140 PRINT" {BLK}{RVS}{ 15 SPACES} STARGAZER I 

{15 SPACES} {OFF}"; trem 169 

150 PRINT" {down} YOU WILL BE ASKED TO NAME CONSTELL 

ATIONSIN THE NIGHT SKY." :rem 169 

88 



u 

u 

U) 
u 
u 

u> 
u 
Li 
O 
u 
u 

u> 

U 
U 
U 
lJ 

u 
u 
^ 
u 
u 
u 
u 

LJ 

u 
u 
u 

u 
u 
u 
u 



Level 

3 

160 PRINT" {down} THE SKY DIRECTION AND OPTIMUM VIEW 

ing{3 spaces Imonth will also be provided." 

:rem 8 

170 PRINT" {D0WN}A clue WILL BE GIVEN IF YOU CAN'T 

{space} GUESS THE NAME BY ITS SHAPE." :rem 168 
180 PRINT" {down} YOU GET 10 POINTS FOR EACH CORRECT 

" :rein 160 

185 PRINT "ANSWER BASED ON SHAPE ALONE." : rem 73 
190 PRINT" {down} YOU GET 2 POINTS IF YOU NEED THE E 

XTRA{2 SPACES}CLUE. " :reni 204 

195 PRINT" {DOWN} TYPE { RVS } END { OFF } TO STOP THE GAM 

E EARLY. " :rera 205 

200 GOSUB1000 :rem 211 

210 CB=828:M=((PEEK(53272)AND240)/16)*1024:CC=5529 

6 :rem 206 

215 PRINT" {DOWN} {3 SPACES} (PRESS ANY KEY — 10 SEC 

OND DELAY) " :rem 15 

220 FORX=0TONS-1 : rem 226 

230 FORY=0TO3:READX$:CT$(X,Y)=X?:NEXTY : rem 152 
240 Y=0 :rem 92 

250 READZ:ST%(X,Y)=Z:Y=Y+1:IFZ>0THEN250 :rem 180 
260 NEXTX :rem 47 

280 GETX$:IFX$=""THEN280 ; rem 133 

300 S%=0:FORX=1TONS:POKECB+X,0: NEXTX : rem 65 

310 FORX=lTONS:GOSUB2000:POKECB+Z,XiNEXTX :rem 201 
320 POKEVC+32,0:POKEVC+33,1 s rem 57 

400 LC=1 :rem 145 

410 CI=PEEK(CB+LC)-1 :rem 113 

420 PRINTCHR$(147) ; :F0RX=1T014 :rem 59 

430 PRINT " { BLU } { RVS } { 40 SPACES } { OFF } " ; : NEXTX 

:rem 55 

440 X$=CT$(CI,1) :X=40-LEN(X$)-LEN(CT$(CI,2)) 

:rem 165 

450 FORY=lTOX:X$=X$+"{ SHIFT-SPACE }":NEXTY :rem 146 
460 X$=X$+CT$(CI,2) :rem 240 

465 PRINT" {BLK} {HOME} {23 DOWN} "; SPC( 15) j "SCORE ="; 

S%; ;rem 152 

470 PRINT"{BLU}{H0ME}{13 DOWN} {RVS}" ;X$; " {OFF}" ; 

:rem 144 

480 X=0 :rem 97 

490 Y=ST%(CI,X) :IFY=0THEN510 :rem 180 

500 POKEM+Y,174:X=X+1:GOTO490 :rem 240 

510 PRINT" {2 DOWN} {BLK} {2 SPACES } CONSTELLATION? 

{down}" :rem 72 

520 X=105GOSUB3000 :rem 10 

530 IFX$="Q"THEN600 :rem 186 

535 IFX$="END"THEN610 : rem 198 

537 PRINT"{BLK}{H0ME}{23 DOWN} "; SPC( 15 ); "SCORE ="; 

S%; I rem 152 
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540 PRINT" {home} {16 DOWN} " ;CT$ (CI , 3 ) ; " . {DOWN} " 

:rein 125 

550 X=2:GOSUB3000 :rem 222 

560 IFX$="Q"THEN600 :rem 189 

565 IFX$="END"THEN610 :rem 201 

568 PRINT" {BLK} {home} {23 DOWN} SPC( 15 ); "SCORE ="; 

S%; :rem 156 

570 PRINT" {BLU} {HOME} {16 D0WN}{2 SPACES }"; CT$ ( CI , 

) :reni 222 

580 FORX=1TO3000:NEXTX :rem 129 

600 LC=LC+1 :IFLC<=NSTHEN410 :rem 131 

610 POKEVC+32,6:POKEVC+33,15 :rem 118 

620 PRINTCHR$(147);"{RED}{D0WN}{15 SPACES} {RVS} GAM 

E OVERMoff}" :rein 218 

630 PRINT" {3 DOWN} {4 SPACES} TOTAL POINTS {2 SPACES} 

=";S% :rem 238 

635 X=LC-1 :IFX<1THENX=1 :rem 163 

640 X=INT((S%*100)/(X*10)) :rera 82 

650 PRINT" {DOWN} {4 SPACES}TOTAL SC0RE{2 RIGHT} ="; 

X;"{LEFT}%" :rem 200 

660 PRINT"{3 D0WN}{4 SPACES}PLAY AGAIN? ({RVS}Y 

{off} or {RVS}n{OFF})" :rein 86 

670 GETX$ :IFX$=""THEN670 :rem 139 

680 IFX$="Y"THEN300 : rem 69 

690 IFX$<>"N"THEN670 :reni 130 

700 GOSUB1000 :rem 216 

710 PRINTCHR$(147) :END :reni 36 

1000 POKEMC+24,15:POKEMC+5,79:POKEMC+6,129:rem 186 
1010 FORX=0TO14 :rem 118 

1020 POKEMC+0,NT%(X,0) :rem 213 

1030 P0KEMC+1,NT%(X,1) rrem 216 

1040 POKEMC+4,17 :rein 119 

1050 FORY=1TONT%(X,2)*80:NEXTY :reni 73 

1060 POKEMC+4,16:FORY=1TO30:NEXTY,X :rem 188 

1070 POKEMC+24,0 :rem 116 

1080 RETURN :rein 169 

2000 Y=0 :reni 136 

2010 Z=INT ( RND ( 1 ) *NS ) +1 : IFPEEK ( CB+Z ) =0THENRETURN 

:rem 232 

2020 Y=Y+1 :IFY<9THEN2010 :rem 152 

2030 Z=l :reni 141 

2040 IFPEEK ( CB+Z )=0THENRETURN :rem 81 

2050 Z=Z+1:GOTO2040 :rem 77 

3000 X$="":POKE198,0:INPUTX$ :rem 109 

3010 IFX$=CT$(CI,0)THEN3100 :rein 243 

3015 IFX$="END"THENRETURN : rem 59 

3020 POKEVC+3 3 , 1 POKEMC+24 , 1 5 : POKEMC+0 , 49 : POKEMC+1 
,28 :rem 110 

3030 POKEMC+5, 15 :P0KEMC+6, 15: POKEMC+4,17 :rem 79 



90 



n 
















r-i 






3040 




3050 




3060 




3070 




3100 




3110 






3120 




3130 




3140 




3150 




3160 




•J ^ f Kf 




9000 




9010 








9100 




9110 




9120 




9130 




9140 








9150 




9160 




9170 












9190 




9200 




9210 




9220 




9230 


n 


9240 


/ ) 






9250 




9260 




9270 




9280 




9290 




9300 




9310 






O 




m 





FORY=1TO100:NEXTY:POKEMC+4,16 :rem 102 

PRINT " { HOME } { 14 DOWN } " ; C$ ; C$ ; C$ ; C$ ; C$ ; C$ ; C$ ; C 
$;C$; :rem 135 

POKEMC+24,0:POKEVC+33,1 :reni 101 

RETURN :rem 170 

X$="Q":S%=S%+X :rem 124 

POKEMC+ 24 ,15: POKEMC+0 , : POKEMC+5 ,15: POKEMC+6 , 
15:POKEMC+1,0 :reni 223 

F0RX=15T01STEP-1 : rem 22 

POKEVC+33,X:POKEMC+l,Y:POKEMC+4,17 :rein 106 
FORZ=1TO50:NEXTZ:POKEMC+4,16 : rem 61 

Y=Y+10:NEXTX :reni 21 

POKEMC+24,0 :rem 118 

RETURN :reni 171 

DATA104, 9, 2, 104, 9, 2, 24, 14, 2, 24, 14, 2, 210, 15, 2, 
210,15,2,24,14,4,0,0,1 :rem 183 

DATA143, 12, 2, 143, 12, 2, 218, 11, 2, 218, 11, 2, 143,1 
0,2,143,10,2,104,9,8 :rem 104 

DATACEPHEUS, JUNE, NORTH : rem 6 

DATA"THE PULSATING STARS, OR CEPHEIDS, FIND 
{2 SPACES iTHEIR PROTOTYPE HERE" : rem 35 

DATA100, 170,147,300,309,0 
DATACASSIOPEIA, JUNE , NORTH 
DATA"TYCHO BRAKE OBSERVED 
{5 SPACES} 1572" 
DATA129, 107, 294, 178, 301,0 
DATABOOTES , JUNE , SOUTH 
DATA" IT WAS ERRONEOUSLY CALLED 'ORION' IN 
{4 SPACES} AMOS 5:8" :rem 6 

DATA14, 61, 172, 221, 258, 383, 420, 427,0 :rem 231 
DATALIBRA, JUNE, SOUTH :rem 116 

DATA" ITS STARS WERE ONCE KNOWN AS SCORPIO'S 
{2 SPACES} CLAWS" :rem 50 

DATA16, 132, 183, 380,0 :rem 250 

DATADRACO, JUNE, NORTH : rem 101 

DATA "ITS BODY WINDS BETWEEN THE BIG AND THE 
{2 SPACES} LITTLE DIPPERS" :rem 37 

DATA16, 36, 60, 74, 78, 90, 116, 141, 205, 223, 241, 381 
,429,465,0 :rem 199 

DATA"URSA MAJOR" , SEPTEMBER, NORTH :rem 108 

DATA"THE BIG DIPPER IS 'BEARLY' HALF OF THIS 
{SPACE} CONSTELLATION" : rem 22 

DATAl , 5 , 87, 130, 176, 210, 223, 254, 269, 300, 289, 41 
2,421,447,0 :rem 244 

DATA"URSA MINOR" , JUNE, NORTH : rem 6 

DATA"THE NORTH STAR IS THE TIP OF ITS TAIL" 

:rem 241 

DATA18, 96, 101, 180, 301, 378, 454,0 :rem 32 

DATACYGNUS, JUNE, EAST :rem 119 



:rem 230 
:rem 221 
NOVA HERE IN 

:rem 110 
:rem 252 
:rem 211 



91 



LeveB 



9320 DATA"THE NORTHERN CROSS FORMS THIS BIRD'S 

{4 SPACES} NECK AND BODY" :rera 131 

9330 DATA9, 47 , 130, 241 , 249 , 263 , 272 , 370, 450, 

:reni 124 

9340 DATAHERCULES, JUNE, EAST : rem 252 

9350 DATA"HE KNEELS ON THE HEAD OF THE DRAGON 

{5 SPACES} KILLED" trem 244 

9360 DATA7, 92, 118, 139, 149, 218, 252, 281, 343, 369, 432, 

trem 27 

9370 DATA"CORONA BOREALIS", JUNE, EAST rrem 251 

9380 DATA"BACCHUS GAVE ARIADNE THIS WREATH OF 

{5 SPACES} GEMS" :rera 6 

9390 DATA132, 145, 227, 252, 338, 341, 307,0 :rem 135 
9400 DATASCORPIUS, JULY, SOUTH :rem 142 

9410 DATA"ANTARES IS ONE REASON IT SHINES SO 

{6 SPACES} BRIGHTLY" :reni 238 

9420 DATA29 , 32 , 74 , 149 , 1 58 , 185 , 223 , 234 , 296 , 298, 301 , 

334,341,372,421,454,460,0 trem 190 

9430 DATAHYDRA, JUNE, WEST :rem 47 

9440 DATA" 'THE MAINSAIL' STAR GROUP RIDES ON THIS 

{space} SERPENT'S BACK" : rem 107 

9450 DATAl, 40, 129, 94, 176, 220, 345, 229, 312, 356, 398, 4 

36,478,0 :rem 121 

9460 DATALEO, JUNE, WEST :rem 154 

9470 DATA" ITS MANE IS FORMED BY 'THE SICKLE' STAR 

{space} GROUP" :rem 232 

9480 DATA5, 87, 50, 216, 220, 263, 303, 327, 336, 374, 454,0 

:rem 221 

9490 DATASAGITTARIUS, JULY, SOUTH :rem 111 

9500 DATA"THE CENTAUR LOOKS MORE LIKE A TEAPOT IN 

{space} THE SKY" :rem 124 

9510 DATA60, 90, 94, 167, 181, 225, 249, 340,0 :rem 188 
9520 DATAAQUARIUS, SEPTEMBER, SOUTH : rem 231 

9530 DATA"THE WATER FROM HIS JAR FEEDS THE 

{8 SPACES} ' SOUTHERN FISH'" : rem 192 

9540 DATA5, 9, 47, 89, 52, 178, 203, 267, 325, 361, 403,0 

:rem 80 

9550 DATAVIRGO, JULY, WEST :rem 83 

9560 DATA"THE STAR SPICA IS A STALK OF GRAIN IN 

{3 SPACES }HER hand" irem 176 

9570 DATA56, 72,147,170,225, 349,434,0 :rem 47 

9580 DATASERPENS, SEPTEMBER, WEST : rem 82 

9590 DATA"IT IS AESCULAPIUS' SNAKE, THE SYMBOL OF 

{space} MEDICINE" :rem 252 

9600 DATA7, 85, 203, 287, 370, 376, 378, 461, 347, 392, 389, 

312,272,276,278,238,0 :rem 24 

9610 DATAPISCES, SEPTEMBER, EAST :rem 221 

9620 DATA"THE TAILS OF THESE FISHES ARE BOUND BY 

{2 SPACES} RIBBON" irem 4 
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9630 


DATA29, 32, 65, 109, 105, 125, 143, 147, 165, 169, 210, 






9f>PI 5Q5 5Qft 174. "^Tfi Aii^. PI 




9640 


DATACAPRICORNUS , SEPTEMBER, SOUTH 


:rem 200 


r 1 


9650 


DATA "THIS 'SEA GOAT' MAY BE PAN IN 


DISGUISE" 








trem 253 




9660 


DATA147, 149, 170, 172, 187,296, 340,381 


,0 :rem 95 




9670 


DATA TAURUS , OCTOBER, EAST 


:rem 103 


9680 


DATA "THE PLEIADES FORM THE APEX OF 


ITS 






{7 SPACES} SHOULDER" 


:rem 139 


9690 


DATA54, 190, 212, 216, 229, 243, 258, 261, 


292,296,34 






9,365,0 


:rem 77 




9700 


DATAAQUILA, OCTOBER, WEST 


:rem 80 


' 1 


9710 


DATA"JUPITER IN DISGUISE (THE EAGLE) FORMS 






13 SPACES }THE TAIL OF SERPENS" 


:reni 29 




9720 


DATA50, 61, 141, 145, 300, 307, 414,0 


:rem 18 




9730 


DATAPERSEUS , NOVEMBER, EAST 


: rem 247 


9740 


DATA"IT CONTAINS ALGOL, A VARIABLE 


STAR THAT 






{SPACE} IS REALLY TWO STARS" 


: rem 167 




9750 


DATA3, 47, 129, 136, 140, 210, 294, 336, 378, 343, 381, 









:rem 18 




9760 


DATAORION , NOVEMBER, EAST 


:rem 90 


r-i 


9770 


DATA"BETELGEUSE AND RIGEL ARE FOUND 


HERE" 
:rem 216 




9780 


DATA92, 96, 180, 187 , 220, 260, 245 , 285 , 289 , 290, 385 






,0 


:rem 93 




9790 


DATAGEMINI , NOVEMBER, EAST 


;rem 143 




9800 


DATA" ITS MAJOR STARS ARE CASTOR AND 


POLLUX" 


> 


9810 


DATA109 , 170 , 187 , 330 , 343 , 349 , 429 , 


:rem 128 
: rem 145 




9820 


DAT AARIES, OCTOBER, EAST 


:rem 244 




9830 


DATA" ITS GOLDEN FLEECE WAS WORN BY 


JASON" 








:rem 198 




9840 


DATA212, 138, 181,0 


:rem 110 


9850 


DATACANCER, APRIL , WEST 


:rem 175 




9860 


DATA"WHEN ITS CLUSTER PRAESEPE IS VISIBLE, 




{3 SPACES} RAIN IS FORETOLD" 


:rem 201 




9870 


DATA132 , 149 ,218,263,0 


: rem 60 




9880 


DATACETUS, DECEMBER, SOUTH 


:rem 153 


P 


9890 


DATA"DENEB JCAITOS IS THE 'SEA MONSTER'S' 


/-^ 




{5 SPACES }MAJOR STAR" 


:rem 90 


9900 


DATAl, 5, 85, 129, 254, 180, 263, 378, 430, 


238,0 








:rem 232 




9910 


DATAANDROMEDA, DECEMBER, SOUTH 


;rem 154 




9920 


DATA"IT FEATURES A SPIRAL THAT CAN 


BE SEEN ON 






MOONLESS NIGHTS" 


:rem 201 


O 


9930 


DATA25, 220, 229, 261, 250, 292, 336, 338, 


458,0 








:rem 235 




9940 


DATA"CANIS MAJOR" , JANUARY, SOUTH 


:rem 32 
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9950 DATA" 'SIRIUS' ASTRONOMY STUDENTS WILL 

{8 SPACES} RECOGNIZE THIS" :rem 190 

9960 DATA18, 61, 105, 220, 298, 336, 347, 381, 414, 423,0 

:rem 127 

9970 DATALEPUS, JANUARY, SOUTH srem 129 ^ 

9980 DATA"THIS RABBIT IS FLEEING PROM ORION, , , 

{6 SPACES} 'THE HUNTER'" irem 166 ^ 

9990 DATA92, 136, 220, 187, 294, 336, 301, 345, 389,0 

:rem 249 

10000 DATAERIDANUS , JANUARY, SOUTH : rem 107 LJ 

10010 DATA" 'THE RIVER' IS THOUGHT TO REPRESENT 

{5 SPACES} CHINA'S RIVER PO" : rem 37 ^ 

10020 DATA14, 50, 56, 100, 141, 134, 296, 338, 381,460,0 

:rem 94 

10030 DATAPEGASUS, DECEMBER, SOUTH J rem 72 

10040 DATA"THREE STARS OP THE 'GREAT SQUARE' PORM 

{2 SPACES} ITS TORSO" : rem 27 {J 

10050 DATA12, 105, 178, 185, 149, 298, 349, 316, 378, 463,0 

I rem 233 LJ 

u 
u 

LJ 
U 

u 
u 
u 
u 
u 

u 
u 
u 
u 
u 
u 
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e Union 



Skill area: Social Studies 
Level: 3, 4 

Equipment required: None 
Modification: Yes 



"State.of the Union" is a question-and-answer game designed to 
teach the names of the 50 states, their capitals, locations, and vari- 
ous facts about each state's history or economics. The object is to 
see how quickly you can identify the state from the questions 
asked. 

How to Play 

To begin the game, hit any key. There is about a ten-second delay 
between the time you hit the key and the time the game begins. 

When a question is asked, type the name of the state on the 
keyboard and hit RETURN. If you don't know the answer to the 
question, you can either make a guess or hit the RETURN key. 
Abbreviations and misspellings will count as incorrect answers, 
so you must correctly spell the full name of the state. For your ref- 
erence, the correct spellings of the state names appear below: 

Alabama 
Alaska 
Arizona 
Arkansas 
California 
Colorado 
Connecticut 
Delaware 
Florida 
Georgia 
Hawaii 
Idaho 
Illinois 
Indiana 
Iowa 
Kansas 
Kentucky 



Louisiana 


Ohio 


Maine 


Oklahoma 


Maryland 


Oregon 


Massachusetts 


Pennsylvania 


Michigan 


Rhode Island 


Minnesota 


South Carolina 


Mississippi 


South Dakota 


Missouri 


Tennessee 


Montana 


Texas 


Nebraska 


Utah 


Nevada 


Vermont 


New Hampshire 


Virginia 


New Jersey 


Washington 


New Mexico 


WestWgirua 


New York 


Wisconsin 


North Carolina 


Wyoming 


North Dakota 
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If you are still unable to name a state after the first four ques- 
tions, a map of the continental United States will be shown, with 
the state in question indicated. Your final question will be to iden- 
tify the state from its location. 

If you are still unable to identify the state after seeing its loca- 
tion on the map, the name of the state will flash on the screen. 

If you want to quit the game early, t5^e END in the place of 
any answer. Your percentage score will not be affected hy yoxir 
decision to quit pla5dng before all questions are asked. 

Scoring 

If you answer correctly after only one question, 5 points. 

If you answer after the second question, 4 points. 

If you answer after the third question, 3 points. 

If you answer after the fourth question, 2 points. 

If you answer after seeing the location of the state on the map, 1 

point. 

If you are still unable to guess the name of the state, - 5 points. 

Scoring is determined by the number of points you receive, 
and that number is shown at the end of the game. You will also re- 
ceive a percentage score to let you know how well you've done. 

State of the Union 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM STATE.. UNION :rem 123 

100 NS-50:CB»828 :reni 114 

110 VC=53248 :POKEVC+32 , 2 :POKEVC+33 , 6 :PRINTCHR$ ( 147 
) :rem 8 

120 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rem 69 
130 DIM QT$(5),NT%(22,1) :reni 194 

140 READX$:IFX$<>"$SONG"THEN140 :reni 79 

150 FORX=0TO2 2 : FORY=0TO1 : READ Z:NT%{X,Y)=Z: NEXTY , X 

:rein 208 

160 SM=((PEEK(53272)AND240)/16)*1024 :rem 127 

170 CM=55296 :rem 112 

200 GOSUB700 :rem 169 

20 5 S%=0 : F0RX=1T0NS : POKECB+X , : NEXTX : POKEVC+3 2 , 6 : P 
OKEVC+33,15:PRINTCHR$(147) :rem 19 

210 FORX=1TONS:GOSUB800:POKECB+Z,X: NEXTX :rem 158 
300 X=l :rem 89 

305 Y=PEEK(CB+X) :Y=(Y-1)*6 trem 228 

310 RESTORE tIFY=0THEN330 :rem 12 



96 



Level 

3 

320 F0RW=1T0Y:READX$:NEXTW :rem 223 

330 F0RW=1T06:READX$:QT${W-1)=X$:NEXTW :rem 127 
400 W=0 :rein 88 

405 PRINTCHR$(147) ;"{BLK}{23 D0WN}";SPC(15) ; "SCORE 
=";S%; :rem 168 

410 PRINT" {home} {2 D0WN}{3 SPACES } QUESTION #";W+1 

:rein 36 

420 PRINT" {3 D0WN}";QT$(W) ; ". {3 DOWN}" : rem 38 

430 X$=" " : POKE198 , : INPUTX? : IPX$=QT$ ( 4 ) THEN500 

:rem 213 

435 IFX$="END"THEN600 irem 196 

440 POKEVC+3 3 , : POKEMC+0 , : POKEMC+1 , 20 : POKEMC+4 , 33 
:POKEMC+5,15:POKEMC+6,15 : rem 161 

450 POKEMC+24,8:PORV=1TO200:NEXTV :rem 54 

452 POKEMC+4, 32 :FORV=1TO30:NEXTV : rem 4 

454 POKEMC+24,0:PRINTCHR$(147) :POKEVC+33,15:rem 35 

455 IFW=4THEN465 :rem 195 

456 W=W+1:IFW<4THEN405 irem 62 

457 GOSUB4000 :rem 228 

458 IFX$=QT$(4)THEN500 :rem 251 

459 IFX$="END"THEN600 :rem 202 

460 W=4:GOTO440 :rem 109 
465 PRINT"{BLU} {2 D0WN}l3 SPACES }STATE=" ;QT$ (4) ; " 

{BLK}":S%=S%-5 :rem 208 

470 FORW=1TO1500:NEXTW srem 128 

480 GOTO590 :rem 115 

500 S%=S%+(5-W) :rem 247 

510 POKEMC+0 , : POKEMC+1 , : POKEMC+5 ,15: POKEMC+6 ,15: 

POKEMC+24,9 :rem 131 

520 FORV=4T015 :rem 78 

530 POKEVC+33,V:POKEMC+l,V*3:POKEMC+4,33 :rem 145 
540 FORW=lTO30:NEXTW:POKEMC+4,32 :rem 4 

550 FORW=1TO10:NEXTW :rem 26 

560 NEXTV :rem 48 

570 POKEMC+24,0 :rem 72 

590 X=X+1:IFX<=NSTHEN305 :rem 233 

600 PRINTCHR$(147);"{D0WN}{15 SPACES }{ RVS } TEST OVE 

RI {off}" :rem 226 

610 PRINT" {3 DOWN} {4 SPACES} YOUR SCORE = ";S% 

:rem 86 

620 IFS%<0THENS%=0 : rem 31 

625 X=X-1:IFX<1THENX=1 :rem 107 

630 X=INT((S%*100)/{X*5)) :rem 37 

640 PRINT" {down} (4 SPACES} YOUR GRADE = ";X;"{LEFT} 
%" irem 63 

650 PRINT"{3 down} {4 SPACES}PLAY AGAIN?" : PRINT" 
{down} {4 SPACES} ENTER {RVS}y{OPF} OR {RVS}N 
{off}" :rem 158 

660 GETX$:IFX$=""THEN660 :rem 137 
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670 IFX$="Y"THEN205 : rem 72 

680 IFX$<>"N"THEN660 : rem 128 

690 GOSUB900:PRINTCHR$(147) :rem 109 

695 END :rem 123 

700 PRINT"{WHT}{2 spaces} {RVS} {9 SPACES} STATE OF T 

HE UNI0N{9 SPACES} {off}" : rem 145 

705 PRINT" {down} you WILL BE ASKED UP TO 5 QUESTIO 

NS{5 SPACES} ABOUT EACH U.S. STATE." : rem 41 
710 PRINT" {down} POINTS WILL BE GIVEN DEPENDING UP 

ON" :rem 95 

712 PRINT" HOW MANY QUESTIONS YOU NEED:" :rem 172 
715 PRINT" {2 down} {2 SPACES}! QUESTI0N{2 SPACES }= 

{2 SPACES } 5. " I PRINT" {2 SPACES} 2 QUESTIONS = 

{2 SPACES}4." :rem 128 

720 PRINT" {2 SPACES} 3 QUESTIONS ={2 SPACES } 3. ":PRI 

NT" {2 SPACES} 4 QUESTIONS ={2 SPACES} 2." 

:rem 173 

722 PRINT"{2 SPACES}5 QUESTIONS ={2 SPACES}l." 

:rem 8 

725 PRINT"{2 SPACES}ALL MISSED{2 SPACES}= -5." 

:rem 218 

730 PRINT" {2 DOWN} TYPE { RVS } END { OFF } TO QUIT EARL 
Y." :rem 219 

785 PRINT" {3 DOWN} {7 SPACES }( PRESS ANY KEY TO STAR 
T)" :rem 136 

786 GOSUB900 :rem 190 

787 PRINT" {DOWN} {10 SPACES }( TEN-SECOND DELAY)"; 

:rem 83 

790 GETX$:IFX$=""THEN790 :rem 145 

795 RETURN :rem 133 

800 W=0 :rem 92 

810 Z=INT( (RND(1)*NS)+1) :IPPEEK(CB+Z)=0THENRETURN 

:rem 15 

820 W=W+1:IPW<9THEN810 :rem 62 

830 Z=l :rem 99 

840 IFPEEK(CB+Z)=0THENRETURN :rera 39 

850 Z=Z+1:GOTO840 :rem 249 

900 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 ,129 
:POKEMC+24,15 :rem 243 

910 FORX=0TO22 : rem 77 

920 Y=INT(NT%(X,0)/256) :rem 5 

930 POKEMC+0, NT%(X,0)-(Y*256) : rem 76 

940 POKEMC+1, Y:P0KEMC+4, 17 :rem 41 

950 PORY=1TONT%(X,1)*40:NEXTY :rem 28 

960 POKEMC+4, 16 iPORY=lTO20 :NEXTY,X:POKEMC+24,0 

:rein 121 

970 RETURN trem 128 

1000 DATA "JEFFERSON DAVIS BECAME PRESIDENT OF THE 
{SPACE} CONFEDERACY HERE" :rem 64 
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Level 
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1010 DATA"THE SOUTH 'S LARGEST STEEL PRODUCING 

{5 SPACES} STATE" :rem 201 

1020 DATA"IT'S FAMOUS FOR MAGNOLIAS, COTTON, AND 

{2 SPACES} EARLY AEROSPACE RESEARCH" trem 228 
1030 DATA"THE STATE CAPITAL IS MONTGOMERY" , ALABAMA 

,627 trem 5 

1040 DATA"THE HIGHEST PEAK IN NORTH AMERICA IS 

{4 SPACES} HERE" trem 5 

1050 DATA"IT WAS ONCE KNOWN AS SEWARD'S ICE BOX" 

I rem 236 

1060 DATA" IT HAS THE LARGEST AREA AND THE SMALLEST 
POPULATION" :reni 206 

1070 DATA"THE STATE CAPITAL IS JUNEAU" , ALASKA, 1 

:rem 32 

1080 DATA "THE LAST MAINLAND STATE TO JOIN THE 

{5 SPACES}UNION" trem 62 

1090 DATA"ASTRONOMERS LIKE ITS DRY, CLEAR AIR" 

trem 248 

1100 DATA"THE HOME OP THE GR7VND CANYON" trem 212 
1110 DATA"THE STATE CAPITAL IS PHOENIX" , ARIZONA, 56 
9 trem 72 

1120 DATA"IT PRODUCES 90% OF AMERICA'S ALUMINUM" 

trem 27 

1130 DATA" IT WAS THE HOME OF HANGING JUDGE PARKER" 

trem 122 

1140 DATA" IT CONTAINS AMERICA'S ONLY DIAMOND MINE" 

trem 243 

1150 DATA"THE STATE CAPITAL IS LITTLE ROCK",ARKANS 
AS, 583 trem 106 

1160 DATA"THE MOST POPULOUS OF THE STATES" trem 27 

1170 DATA"IT CONTAINS THE LOWEST ELEVATION IN 

{5 SPACES }NORTH AMERICA" trem 157 

1180 DATA"THERE WAS 'GOLD IN THEM THAR HILLS'" 

trem 111 

1190 DATA"THE STATE CAPITAL IS SACRAMENTO" , CALIFOR 
NIA,444 trem 222 

1200 DATA"THE STATE WITH THE HIGHEST OVERALL 

{6 SPACES} ELEVATION" trem 104 

1210 DATA"IT PRODUCES 72% OF THE WORLD'S 

{10 SPACES }M0LYBDENUM" trem 38 

1220 DATA" ITS NAME MEANS 'COLORED RED' IN SPANISH" 

trem 134 

1230 DATA"THE STATE CAPITAL IS DENVER" , COLORADO, 41 
4 trem 40 

1240 DATA" IT WAS THE HOME OF NATHAN HALE" trem 32 
1250 DATA"IT RECEIVED STATEHOOD IN 1788" trem 36 
1260 DATA" IT IS FAMOUS FOR YALE UNIVERSITY" f rem 95 
1270 DATA"THE STATE CAPITAL IS HARTFORD", CONNECTIC 
UT,275 trem 179 
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1280 DATA"THE FIRST STATE TO RATIFY THE{11 SPACES} 
CONSTITUTION" :rein 25 

1290 DATA" IT IS SOMETIMES CALLED THE 'CHEMICAL 

{4 SPACES} CAPITAL OF THE WORLD'" :rem 31 

1300 DATA "AMERICA'S SECOND SMALLEST STATE" :rem 48 

1310 DATA"THE STATE CAPITAL IS DOVER" , DELAWARE, 394 

trem 220 

1320 DATA" ITS COASTLINE MEASURES 1,350 MILES" 

:rem 138 

1330 DATA"THE SOUTHERNMOST OP THE CONTINENTAL U.S" 

:rein 76 

1340 DATA"THE HOME OF CAPE CANAVERAL" irem 107 

1350 DATA"THE STATE CAPITAL IS TALLAHASSEE", FLORID 

A, 832 :rein 64 

1360 DATA"THE LAST OF THE 13 COLONIES TO BE 

{7 SPACES} SETTLED" : rem 178 

1370 DATA"HOME OF STONE MOUNTAIN PARK" :rem 9 

1380 DATA"BIRTHPLACE OF UNCLE REMUS, SCARLETT 

{5 SPACES }0' KARA AND COCA-COLA" trem 245 

1390 DATA"THE STATE CAPITAL IS ATLANTA" , GEORGIA, 67 

:rein 31 

1400 DATA"THIS STATE WAS FORMED BY ERUPTING 

{7 SPACES }VOLCANOS" :rem 242 

1410 DATA"THE 50TH STATE TO JOIN THE UNION" 

:rem 196 

1420 DATA"WORLD WAR II STARTED FOR THE U.S. WITH 

[2 SPACES} AN ATTACK HERE" : rem 179 

1430 DATA"THE STATE CAPITAL IS HONOLULU" , HAWAII , 76 

:rem 64 

1440 DATA" IT LEADS IN PRODUCTION OF SILVER AND 

{4 SPACES} COBALT" :rem 189 

1450 DATA"HOME OP THE NATION'S DEEPEST CANYON — 

{2 SPACES} HELLS CANYON" :rem 118 

1460 DATA"THE STATE CAPITAL IS BOISE" :rem 151 

1465 DATA"PAMOUS FOR ITS POTATOES ", IDAHO, 249 

:rem 155 

1470 DATA"THE LINCOLN- DOUGLAS DEBATES WERE HELD 

{3 SPACES }HERE" :rem 194 

1480 DATA" IT IS HOME OP THE WORLD'S TALLEST 

{7 SPACES} BUILDING" :rem 108 

1490 DATA"THE STATE CAPITAL IS SPRINGFIELD" : rem 95 
1500 DATA"THE WINDY CITY IS PART OF THIS GREAT 

{4 SPACES}LAKE STATE" , ILLINOIS, 385 :rem 213 
1510 DATA"THE SMALLEST OF THE 'LOWER 48' STATES 

{3 SPACES }WEST OF THE ALLEGHENIES" :rem 210 
1520 DATA"ITS LAKE MICHIGAN WATERFRONT IS LINED 

{3 SPACES IWITH STEEL MILLS" »rem 193 

1530 DATA"IT IS THE HOME OP PURDUE UNIVERSITY" 

tram 246 
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3 

1540 DATA"THE STATE CAPITAL IS INDIANAPOLIS" , INDIA 
NA,427 trem 136 

1550 DATA"THIS FARMING STATE PRODUCES 10% OF 

{6 spaces} AMERICA'S POOD" : rem 250 

1560 DATA" IT IS THE LEADING LOG STATE IN THE U.S" 

:rem 233 

1570 DATA"IT IS BORDERED BY SIX FARMING AND TWO 

{3 SPACES} GREAT LAKE STATES" :rem 111 

1580 DATA"THE STATE CAPITAL IS DES MOINES ", IOWA, 34 

2 :rein 240 

1590 DATA"IT PRODUCES MORE WHEAT THAN ANY OTHER 

{3 SPACES} STATE" trem 241 

1600 DATA" IT HAD ITS OWN CIVIL WAR OVER SLAVERY IN 

1821" J rem 153 

1610 DATA "LEAVENWORTH FEDERAL PENITENTIARY IS 

{5 SPACES} HERE" :rem 196 

1620 DATA"THE STATE CAPITAL IS TOPEKA", KANSAS, 459 

:rem 162 

1630 DATA"PRESIDENTS OF BOTH CIVIL WAR FACTIONS 

{3 SPACES }CAME FROM THIS STATE" :rem 166 

1640 DATA"THE STATE CAPITAL IS FRANKFORT" :rem 210 
1650 DATA"IT IS THE SITE OF THE WORLD'S MOST 

{6 SPACES} FAMOUS HORSE RACE" : rem 155 

1660 DATA"MAMMOTH CAVE AND FORT KNOX ARE HERE", KEN 

TUCKY,468 :rem 15 

1670 DATA"IT CONTAINS THE NATION'S SECOND BUSIEST 

{space} SEAPORT" : rem 69 

1680 DATA"IT IS DIVIDED INTO PARISHES, AND NOT 

{4 SPACES} COUNTIES" : rem 82 

1690 DATA"THE STATE CAPITAL IS BATON ROUGE": rem 32 
1700 DATA"THE HOME OF CAJUNS, CRAWFISH AND MARDI 

{2 SPACES }GRAS", LOUISIANA, 704 :rem 17 

1710 DATA "THIS STATE HAD A 'TEA PARTY' BUT NOT IN 

{SPACE} BOSTON" :rem238 
1720 DATA"IT WAS A PART OF MASSACHUSETTS UNTIL 

{4 SPACES} 1820" :rem 252 

1730 DATA"THE STATE CAPITAL IS AUGUSTA" :rem 63 
1740 DATA"IT IS FAMOUS FOR ITS LOBSTER" , MAINE, 116 

:rem 122 

1750 DATA"THE ONLY STATE WITH A STATE SPORT — 

{4 SPACES} JOUSTING" :rem 50 

1760 DATA"THE FIRST STATE TO RATIFY THE {11 SPACES} 
CONSTITUTION" : rem 28 

1770 DATA"IT STRADDLES CHESAPEAKE BAY" : rem 22 

1780 DATA"THE STATE CAPITAL IS ANNAPOLIS" , MARYLAND 
,393 :rem 30 

1790 DATA"THE PILGRIMS FIRST LANDED HERE" :rem 203 
1800 DATA"HOME OF THE INFAMOUS SALEM WITCH TRIALS" 

:rem 232 
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1810 DATA"THE HOME OF HARVARD UNIVERSITY" : rem 241 
1820 DATA"THE STATE CAPITAL IS BOSTON" ,MASSACHUSET 

TS,235 I rem 212 

1830 DATA"IT IS COMPOSED OF TWO PENINSULAS, 

{7 SPACES} DIVIDED BY THE GREAT LAKES": rem 210 
1840 DATA"THE STATE CAPITAL IS LANSING" irem 51 
1845 DATA" IT IS THE AUTOMOBILE CAPITAL OF THE 

{5 SPACESlWORLD" :rem 55 

1850 DATA"A GREAT LAKE SHARES ITS NAME" .MICHIGAN, 2 

67 :rem 11 

1860 DATA" IT CONTAINS MORE THAN 15,000 LAKES" 

:rem 25 

1870 DATA"THE HOME OF THE MAYO CLINIC" :rem 150 
1880 DATA"THE MISSISSIPPI RIVER HAS ITS ORIGIN IN 

{SPACE} THIS STATE" :rem 217 

1890 DATA"THE STATE CAPITAL IS ST. PAUL" , MINNESOTA 

,221 :rem 206 

1900 DATA"ONLY VIRGINIA HAD MORE CIVIL WAR 

{8 SPACES} BATTLES THAN THIS STATE" :rem 23 
1910 DATA "DEVASTATED IN 1969 BY AMERICA'S MOST 

{4 SPACES} POWERFUL HURRICANE" :rem 221 

1920 DATA" ITS NAME IS AN INDIAN WORD MEANING 

{6 SPACES} 'LARGE RIVER'" irem 149 

1930 DATA"THE STATE CAPITAL IS JACKSON" ,MISSISSIPP 

1,625 :rem 130 

1940 DATA" IT RANKS FIRST IN THE NATION IN LEAD 

{4 SPACES} MINING" : rem 128 

1950 DATA" IT WAS ADMITTED AS A SLAVE STATE WHEN 

{3 SPACES} MAINE JOINED AS A FREE STATE" 

:rem 159 

1960 DATA" IT IS THE 'GATEWAY TO THE WEST'": rem 111 
1970 DATA"THE STATE CAPITAL IS JEFFERSON CITY", MIS 

SOURI,463 :rem 118 

1980 DATA" IT IS THE MUSTARD SEED CAPITAL OF THE 

{3 SPACES}U.S" :rem 213 

1990 DATA"GLACIER NATIONAL PARK IS HERE" :rem 108 
2000 DATA"THE SITE OF CUSTER'S LAST STAND": rem 201 
2010 DATA"THE STATE CAPITAL IS HELENA" , MONTANA, 173 

:rem 203 

2020 DATA"THE BIRTHPLACE OF PRESIDENT GERALD FORD" 

:rem 254 

2030 DATA"THE PLATTE RIVER RUNS THE WIDTH OF THE 

{2 SPACES} STATE" :rem 246 

2040 DATA"THE TRANSCONTINENTAL RAILROAD STARTED 

{3 SPACES} HERE IN 1865" srem 192 

2050 DATA"THE STATE CAPITAL IS OMAHA", NEBRASKA, 378 

:rem 200 

2060 DATA"THE DRIEST STATE, WITH LESS THAN 3 

{6 SPACES} INCHES OF RAIN PER YEAR" :rem 225 
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DATA"THE SITE OP UNDERGROUND NUCLEAR TESTS" 

:rein 188 

DATA"THE STATE CAPITAL IS CARSON CITY" j rem 35 
DATA" IT IS THE GAMBLING CAPITAL OP THE U.S",N 
EVADA,407 :rem 112 

DATA "IT SHARED A GOVERNOR WITH MASSACHUSETTS 
{SPACE} FROM 1699-1741" 4 rem 83 

DATA "AS THE 9TH STATE TO RATIFY, IT MADE THE 
{space} CONSTITUTION LEGAL" irem 56 

DATA"PUBLIC PARK LANDS COMPRISE ONE-FIFTH OF 
{2 SPACES} THIS STATE" jrem 178 

DATA"THE STATE CAPITAL IS CONCORD" , "NEW HAMPS 
HIRE", 195 :rem 238 

DATA"ONE OF ITS CITIES WAS USED AS A PATTERN 
{SPACE} FOR THE MONOPOLY BOARD" : rem 9 

DATA"THE STATE CAPITAL IS TRENTON" : rem 76 
DATA "THE HOME OF PRINCETON AND RUTGERS 
{7 SPACES }UNIVERSITIES" :rera 33 

DATA"THE SITE OF 'AMERICA'S OTHER LAS VEGAS'" 
,"NEW JERSEY", 314 :rem 85 

DATA" IT LEADS THE NATION IN URANIUM 
{10 SPACES} PRODUCTION" :rem 152 

DATA"THE FIRST ATOMIC BOMB WAS PRODUCED AND 
[2 SPACES} EXPLODED HERE" : rem 253 

DATA"THE STATE CAPITAL IS SANTA FE" : rem 32 
DATA"CARLSBAD CAVERNS IS ITS MAJOR TOURIST 
{3 SPACES} ATTRACTION", "NEW MEXICO", 614 

:rem 143 

DATA"ITS LARGEST CITY WAS THE FIRST U.S. 

{5 SPACES} CAPITOL" :rem 195 

DATA "IT LEADS THE NATION IN MANUFACTURING" 

:rem 64 

DATA" IT CONTAINS THE NATION'S LARGEST CITY 
{3 SPACES} AND PORT" : rem 169 

DATA"THE STATE CAPITAL IS ALBANY", "NEW YORK", 
233 :rem 61 

DATA"THE WRIGHT BROTHERS' FIRST PLANE FLEW 
{3 SPACES }HERE" :rem 184 

DATA"HOME OF THE NEW WORLD'S 'LOST COLONY'" 

:rem 24 

DATA" IT LEADS THE NATION IK TOBACCO 
{10 SPACES} PRODUCTION" :rem 115 

DATA"THE STATE CAPITAL IS RALEIGH" , "NORTH CAR 
OLINA",551 :rem 46 

DATA"THE BIRTHPLACE OP ULYSSES GRANT AND SIX 
{ SPACE }OTHER PRESIDENTS" :rem 117 

DATA"THE ABOLITIONIST MOVEMENT BEGAN HERE" 

:rem 130 

DATA" IT LEADS THE NATION IN LIME PRODUCTION" 

:rem 154 
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2330 DATA"THE STATE CAPITAL IS COLUMBUS" , OHIO, 389 

:reiii 183 

2340 DATA" 90% OF THIS RURAL STATE IS DEVOTED TO ^ 

{3 SPACES} FARM LAND" :rem 24 , 

2350 DATA"HOME OF THE BADLANDS" ^ 
2360 DATA "SITE OF THE RED RIVER VALLEY" :rem 4 

2370 DATA"THE STATE CAPITAL IS BISMARCK" , "NORTH DA 

KOTA",178 :rein 237 LJ 

2380 DATA"IT WAS THE BIRTHPLACE OF WILL ROGERS" 

:rem 17 ^-J 
2390 DATA" IT WAS PART OF INDIAN TERRITORY DURING 

{2 SPACES }THE 19TH CENTURY" :reni 225 ^ 

2400 DATA" INDIANS WANTED PART OP ITS LAND TO 

{6 SPACES} BECOME THE STATE OF SEQUOYAH" 

:rem 124 

2410 DATA"THE STATE CAPITAL IS OKLAHOMA CITY",OKLA 

HOMA,620 trem 226 LJ 

2420 DATA"IN 1811 JOHN JACOB ASTOR FOUNDED A FUR 

{2 SPACES} DEPOT HERE" trem 114 ^ 

2430 DATA"IT BOASTS THE NATION'S DEEPEST LAKE, ^, 

{4 SPACES} CRATER LAKE" :rem 229 ^ 

2440 DATA" IT LEADS THE NATION IN LUMBER{11 SPACES} \^ 

PRODUCTION" «rein 61 

2450 DATA"THE STATE CAPITAL IS SALEM" , OREGON, 205 LJ 

:reni 80 

2460 DATA" BENJAMIN FRANKLIN IS ITS MOST FAMOUS ' 

{4 SPACES} SON" :reni 77 j 

2470 DATA" IT IS THE HOME OF THE 1ST RADIO STATION ^ 

{SPACE} — KDKA" trem 194 

2480 DATA"VALLEY FORGE AND GETTYSBURG ARE BOTH IN 

{ SPACE }THIS state" :rem 164 LJ 

2490 DATA"THE state CAPITAL IS HARRISBURG" , PENNSYL 

VANIA,312 :rem 168 LJ 

2500 DATA"ROGER WILLIAMS STARTED THE STATE'S FIRST 

SETTLEMENT IN 1636" :rem 237 

2510 DATA" IT WAS THE LAST OF THE ORIGINAL COLONIES 

TO RATIFY THE CONSTITUTION" :reni 240 

2520 DATA"IT IS THE NATION'S SMALLEST STATE, AND LJ 

{2 SPACES} IT IS NOT AN ISLAND" trem 221 

2530 DATA"THE STATE CAPITAL IS PROVIDENCE", "RHODE LJ 

{SPACE} ISLAND ",276 trem 123 

2540 DATA"THE CIVIL WAR STARTED HERE" trem 166 

2550 DATA" IT WAS THE 1ST STATE TO SECEDE FROM THE 

{space}UNION" trem 214 

2560 DATA" IT IS THE BIGGEST PEACH-PRODUCING STATE 

{space} EAST OF CALIFORNIA" trem 158 

2570 DATA"THE STATE CAPITAL IS COLUMBIA" , "SOUTH CA LJ 

ROLINA",551 trem 135 

2580 DATA"IT CONTAINS THE GEOGRAPHICAL CENTER OF ^ 

{2 SPACES}THE U.S" trem 125 ^ 
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3 

DATA"IT LEADS THE NATION IN GOLD PRODUCTION" 

trem 162 

DATA"IT IS FAMOUS FOR MOUNT RUSHMORE" trem 25 
DATA"THE STATE CAPITAL IS PIERRE" , "SOUTH DAKO 
TA",258 :rem 108 

DATA"IT LEADS THE NATION IN ZINC PRODUCTION" 

trem 170 

DATA" ANDREW JACKSON MADE HIS HOME HERE" 

trem 59 

DATA"IT IS THE MUSIC CENTER OF AMERICA" 

trem 13 

DATA"THE STATE CAPITAL IS NASHVILLE" ,TENNESSE 
E,547 trem 111 

DATA" IT WAS AN INDEPENDENT COUNTRY FOR ALMOST 
A DECADE" trem 51 

DATA" IT LEADS THE NATION IN OIL, CATTLE AND 
{2 SPACES }COTTON PRODUCTION" trem 242 

DATA "THE BATTLE OF THE ALAMO WAS FOUGHT HERE" 

trem 135 

DATA"THE STATE CAPITAL IS AUSTIN" , TEXAS, 738 

trem 126 

DATA" IT CONTAINS THE NATION'S LARGEST OPEN 
{3 SPACES} PIT COPPER MINE" trem 106 

DATA" ITS ORIGINAL NAME WAS DESERET" trem 133 
DATA"BRIGHAM YOUNG LED THE FIRST MORMON 
{6 SPACES} SETTLERS HERE" trem 101 

DATA"THE STATE CAPITAL IS SALT LAKE CITY",UTA 
H,410 trem 207 

DATA"IT CLAIMS TWO U.S. PRESIDENTS, BUT ONE 
{2 SPACES} WAS PROBABLY BORN IN CANADA" trem 31 
DATA "IT IS THE ONLY NEW ENGLAND STATE WITHOUT 
AN OCEAN COASTLINE" trem 183 

DATA"IT'S FAMOUS FOR THE PRODUCTION OF MAPLE 
{SPACE} SYRUP" trem 133 

DATA"THE STATE CAPITAL IS MONTPEL I ER", VERMONT 
,194 trem 74 

DATA"IT IS FAMOUS FOR COAL PRODUCTION" t rem 64 
DATA"HARPERS FERRY IS LOCATED HERE" trem 137 
DATA "STONEWALL JACKSON WAS A NATIVE OP THIS 
{2 SPACES} STATE" trem 43 

DATA"THE STATE CAPITAL IS CHARLESTON", "WEST V 
IRGINIA",431 trem 232 

DATA"IT HAS THE MILDEST CLIMATE OF ALL THE 
{3 SPACES} NORTHERN STATES" trem 40 

DATA"IT LEADS THE NATION IN APPLE PRODUCTION" 

trem 235 

DATA "IT CONTAINS THE ONLY ACTIVE VOLCANO IN 
{2 SPACES }THE CONTINENTAL U.S" trem 166 

DATA"THE STATE CAPITAL IS OLYMPIA" , WASHINGTON 
86 trem 12 
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2860 DATA" IT WAS THE HOME OF THE MAIN CAPITAL OF 

{2 SPACES }THE CONFEDERACY" :rem 242 

2870 DATA"THE FIRST PERMANENT ENGLISH SETTLEMENT 

{2 SPACES} IN AMERICA WAS HERE" :rem 233 

2880 DATA" IT IS THE BIRTHPLACE OF EIGHT { 11 SPACES} 

PRESIDENTS" : rem 47 

2890 DATA"THE STATE CAPITAL IS RICHMOND" , VIRGINIA, 

472 :rem 207 

2900 DATA"IT WAS THE BOYHOOD HOME OF HARRY 

{8 SPACES }H0UDINI" trein 250 

2910 DATA" IT LEADS THE NATION IN BEER PRODUCTION" 

:rein 150 

2920 DATA" IT IS THE NATION'S LEADING DAIRY STATE" 

trem 118 

2930 DATA"THE STATE CAPITAL IS MADISON" , WISCONSIN, 

264 irem 228 

2940 DATA"WOMEN WERE FIRST GIVEN THE RIGHT TO VOTE 

HERE" :reni 75 

2950 DATA"ITS DEVIL'S TOWER WAS THE FIRST U.S. 

{4 SPACES} NATIONAL MONUMENT" trem 190 

2960 DATA" IT IS THE HOME OF YELLOWSTONE NATIONAL 

{2 SPACES} PARK" :rem 240 

2970 DATA"THE STATE CAPITAL IS CHEYENNE" , WYOMING, 2 

94 :rem 156 

3900 DATA"$SONG" :rem 133 

3910 DATA6430, 2 , 5407 , 2 , 6430, 4, 6430 , 2 , 5407 , 2 , 6430 , 4 

,6430,2,5407,2,6430,2 :rem 215 

3920 DATA7217, 2, 6430, 2, 5407, 2, 6430, 4, 0,1, 5407, 2, 57 

28,2,6430,2,5728,4 : rem 77 

3930 DATA4817,2,6430,2,5728,4,4817,2,4291,8 

:rem 146 

4000 V=VAL(QT$(5)) irem 218 

4002 POKEVC+33,6 :rem 129 

4008 PRINTCHR$(147);"{WHT}{D0WN}{4 SPACES}iD3 

{RVS}iU3iY3Bu3{OFF}il3BOi"f SPC(25) ; 

"{RVS} {OFF}gKi" trem 75 

4010 PRINT"{4 SPACES }iLi {RVS} {7 SPACES}i2 Ti 

B2 YiB2 u3{oFF}io3B2 Piioi 

{13 SPACES} {RVS} {2 SPACES} {OFF} iKi" crem 41 
4020 PRINT"{4 SPACES} { RVS }£{ 17 SPACES } ic3 {OFF} 

{11 SPACES} {RVS }£{ 2 SPACES} {OFF} " :rem 237 
4030 PRINT"{3 SPACES }TrVS}£{ 19 SPACES}i*i£ 

gU3 guiB*3{OFF}{4 SPACES} {RVS }£ 

{3 SPACES} {off} iKi" :rem 170 

4040 PRINT"{2 SPACES} {RVS }£{ 22 SPACES} {OFF} 

{7 SPACES} {RVS }f{ 4 SPACES} iC3 {OFF} " :rein 239 
4050 PRINT" {2 SPACES} {RVS} {24 SPACES} {OFF} {RVS} 

g*§{0FF}{2 SPACES }{ RVS }gV3{ 4 SPACES} {OFF} 

gUi" :rem 219 
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O 4060 PRINT" {2 SPACES }{RVS){ 24 SPACES} {OFF} {RVS} 



{2 SPACES} {off} {RVS}£{3 SPACES} {OFF }gK§' 

trem 209 

r-\ 4070 PRINT"{2 SPACES} { RVS }Bh3{ 23 SPACES}BU3 

{8 SPACES}{OFF}" irem 172 

^ 4080 PRINT" {2 SPACES} iLi {RVS} {31 SPACES} {OFF }£" 

_^ :reni 160 

~ 4090 PRINT" {2 SPACES }gN3{ RVS} {31 SPACES} {OPF} 

iV3" srem 170 

4100 PRINT" {3 SPACES }g*i{ RVS} {30 SPACES }{ OFF} 
m iFi" :reni 212 

4120 PRINT"{4 SPACES}i*3{RVS}{28 SPACES} {OFF }£ 
O gVi" :reni 130 

4130 PRINT"{5 SPACES}i*3{RVS}{27 SPACES}{0FF} 
~ |V3" :rera 218 

^ 4140 PRINT" {6 SPACES} {RVS} iFi {25 SPACES} {OFF }£" 

:rein 162 

r-i 4150 PRINT"{7 SPACES}gY3i*i{RVS}{22 SPACES} 

gNi{OFF}" :rem 127 

4160 PRINT "{10 SPACES} iC3 82 ua{RVS}{l9 SPACES} 

{off}" :rem 108 

^ 4170 PRINT"{13 spaces }g*§{RVS} {11 SPACES}gU3 

iYi{OFF} g*HRVS}{3 SPACES} {OFF}" :rem 18 

4180 PRINT" {14 SPACES}iYii*3{RVS}{6 SPACES} 
r*\ {0FF}i2 Ui{6 SPACES }i*i {RVS } 1*1" srem 24 

4190 PRINT "{16 SPACES} g*i {RVS} {2 SPACES }{ OFF }£ 
{10 SPACES }gL3 {RVS} {2 SPACES } B*i {OFF} " 
-.^^ :rein 4 

4200 PRINT"{17 SPACES} 1*1 {RVS} g*HOFF} 
^ {11 SPACES }i*i{ RVS} gLi{OFF}" :reni 50 

4210 PRINT" {32 SPACES }Ec3" :rem 84 

4220 POKESM+V,160:POKECM+V,0 :rem 177 

4230 INPUT"{D0WN} WHICH STATE";X$ trem 89 

4240 PRINT" {blk}"; :reni 102 

^ 4250 POKEVC+33,15 :rem 182 

'} 4260 RETURN trem 172 
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Skill area: Mathematics 
Level: 3, 4 

Equipment required: None 
lUodification: Yes 



Money Talks 

You had the day all planned. You were going to spend the morn- 
ing pla)dng with the computer, and you wanted to goof around 
with your friends in the ^ternoon. After dark, you hoped to bor- 
row enough money from mom to go to the movies. 

Mom has different ideas. She wants you to go to the grocery 
store. The list isn't a long one — it's just ten items. But going to the 
store isn't exactly the way you wanted to spend your day. 

But mom offers a compromise. Shell give you the money and 
the grocery list. You go to the grocery store and buy everything 
she needs. Any money you save by shopping wisely, you get to 
keep for your night at the movies. 

The idea still doesn't sound as good as spending the day with 
your computer and hanging around with the kids, but it beats 
missing the movie altogether. 

How to Play 

The computer wUl show you a selection of ten items. Each time 
you need to make a purchase, you may choose between Brand A 
and Brand B. Select the brand you think is the better bargain by 
pressing A or B. Each time you choose the better buy the com- 
puter will let you know with sound and flashing colors. If you 
make a mistake, the computer screen will go black and youH get a 
raspberry. 

Scoring 

At the end of each game, the computer will tell you the number of 
wise purchases you made, followed by the number of unwise 
choices. Then the computer will tell you how much you saved by 
comparison shopping. 
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Wise Shopper 

Remember, do not type the checksum number at the end of each hne. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM WISE SHOPPER trem 110 

100 DIMP$(19,1),NT%(17,1),PT%(19) irem 176 

104 VC=53248:POKEVC+32 , 6 :POKEVC+33 , 15 :PRINTCHR$ ( 14 

7)jC$="{CYN}{PUR1{GRN}{BLU}{YELJ" trem 119 

106 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rem 73 
108 B1$="{RVS}{40 SPACES} {off}" :rem 85 

110 B2$="{RVS}{15 spaces} { off H 10 SPACES} {RVS} 

{15 SPACES} {off}" :reni 243 

120 PRINT" {elk} {DOWN} {RVS}{6 SPACES}$$$$$ 

{2 SPACES}WISE SH0PPER{2 SPACES}$$$$$ 

{6 spaces} {off}" rrem 106 

125 PRINT" {3 down} YOU ARE GOING TO THE STORE TO B 

UY TEN {3 SPACES } ITEMS/. " :rein 32 

130 PRINT" {DOWN} AS YOU BUY EACH ITEM YOU MUST CHO 

OSE" trem 62 

135 PRINT" BETWEEN BRAND {RVS}a{OPF} AND BRAND 

{RVS}b{OFF} . " :rem 14 

140 PRINT" {down} YOU MUST SELECT THE BRAND WHICH I 

S THE {2 SPACES} BEST BARGAIN." rrem 5 

150 PRINT" {down} determine THIS BY CALCULATING THE 
UNIT{2 SPACES}C0ST per OUNCE." rrem 248 

160 FORX=0TO 1 7 : FORY=0TO1 : READZ : NT % ( X , Y ) = Z : NEXTY , X 

:rem 213 

170 GOSUB1000 :rem 217 

180 PRINT" {3 down} {8 SPACES} (PRESS ANY KEY TO STAR 

T)" I rem 125 

190 GETX$:IFX$=""THEN190 :rem 133 

195 FORX=0TO19 : READX? , Y$ : P$ (X, )=X$ : P$ (X, 1 )=Y$ :NEX 

TX :rem 126 

200 EC=0:RC=0!XS=0 :rem 21 

210 FORX=0TO19:PT%(X)=0:NEXTX :rem 54 

300 QA=INT(RND(1)*7)+3 : rem 195 

310 QB=INT(RND(l)*7)+3iIFQA=QBTHEN310 :rem 179 

320 PA=INT(RND(1)*11)+30:X=INT(RND(1)*5)+1:IFRND(1 

)>.5THENX=X*-1 rrem 191 

330 PB=PA+X rrem 121 

340 X=INT(RND(1)*20) rIFPT%(X)=lTHEN340 rrem 201 
350 X$=P$(X,0) :Y$=P$(X,1) rPT%(X)=l rrem 82 

360 X=INT(RND(1)*5)+1:Z§=MID$(C$,X,1) rrem 23 

400 PRINT"{CLR}";Z$; rF0RX=lT04rPRINTBl$; rNEXTX 

rrem 20 

410 FORX=lTO10rPRINTB2$; rNEXTXrF0RX=lT03 rPRINTBl$; 

rNEXTX rrem 216 

420 PRINT" {BLK} {home} {7 DOWN} {17 RIGHT} " ;X$ r PRINT" 

{down} {17 RIGHT} ";Y$ rrem 230 
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430 X=QA*PA:GOSUB8000 : rem 251 

440 PRINT" {home} {19 DOWN} {RVS}a{OFF} -" ;QA; "OUNCE 

S FOR ";X$ J rem 136 LJ 

450 X=QB*PB:GOSUB8000 :rem 255 

460 PRINT" {DOWN} {RVS}b{OFF} -" ;QB7 "OUNCES FOR ";X ^ 

$ :rem 71 

470 PRINT"{2 DOWN} {5 SPACES}ENTER {RVS}a{OFF} OR 

{rvs}b{OFF}"; :rem 179 

480 PRINT" {home} {16 RIGHT} {RVS} ITEM #";EC+RC+1;" 

{OFF}" I rem 164 LJ 

500 GETX$:IFX$=""THEN500 :rem 123 

510 IPX$<>"A"ANDX$<>"B"THEN500 :rem 179 ^ 

520 IPX$="B"ANDPB>PATHEN600 : rem 94 

530 IFX$="A"ANDPA>PBTHEN600 : rem 94 

540 GOTO700 ;rem 105 \^ 

600 REM *** MADE WRONG CHOICE *** :rem 197 

610 POKEVC+33,0:POKEMC+0,0:POKEMC+l,30:POKEMC+4,33 LJ 

:POKEMC+5,15:POKEMC+6,15 :rem 161 

620 POKEMC+6,15:POKEMC+24,9 :rem 57 LJ 

630 FORY=lTO300:NEXTY:POKEMC+4,32 :rem 56 

640 FORY=1TO30:NEXTY :rem 32 

650 POKEMC+24,0:PRINTCHR$(147) :POKEVC+33,15:rem 33 
660 EC=EC+1 J rem 69 

670 GOTO790 :rem 118 O 

700 REM *** MADE RIGHT CHOICE *** :rem 183 

710 POKEMC+0,0:POKEMC+l,0:POKEMC+5,15:POKEMC+6,15i LJ 

POKEMC+24,9 ;rem 133 

720 FORY=5T015 irem 84 ^ 

730 POKEVC+33,Y:POKEMC+l,Y*2:POKEMC+4,33 : rem 152 
740 FORZ=lTO50:NEXTZ:POKEMC+4,32 :rem 14 

750 FORZ=lTO20:NEXTZ,Y:POKEMC+24,0 :rem 142 

760 RC=RC+1 :rem 96 

770 IFX$="A"THENXS=XS+((PB-PA)*QA):GOTO790 :rem 25 LJ 
780 XS=XS+( (PA-PB)*QB) :rem 12 

790 IFRC+EC<10THEN300 J rem 214 LJ 

800 PRINT" {CLR} {DOWN} {13 SPACES} { RVS } SHOPPING OVER , , 

1{0FF}" :rem 118 ^ 

810 PRINT" {2 DOWN} {7 SPACES}RIGHT ITEMS ="?RC 

irem 153 

820 PRINT" {DOWN} {7 SPACES }WRONG ITEMS =";EC LJ 

:rem 139 

830 X=RC*10 *rem 80 LJ 

840 PRINT" {down} {7 SPACES} CORRECT %{3 SPACES}=";X; , , 

"{LEFT}%" srem 198 ^ 

850 IFRC=0THEN900 :rem 246 

860 X=XS:GOSUB8000 trem 96 

870 PRINT" {2 down} {3 SPACES} TODAY YOU SAVED ";X$ LJ 

:rem 58 

880 PRINT "{down} {3 SPACES}BY WISE SHOPPING." ^ 

trem 235 ^ 
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900 PRINT" {2 DOWN} {3 SPACES} PLAY AGAIN? ({RVS}Y 

{OFF}/{RVS}n{OFF})" :rem 208 

910 GETX$iIFX$=""THEN910 : rem 133 

920 IPX$="Y"THEN200 :reni 65 

930 IFX$<>"N"THEN910 : rem 124 

935 GOSUB1000 :rem 226 

940 PRINTCHR$(147) : rem 24 

950 END :rem 117 

1000 REM *** PLAY THE SONG *** : rem 239 

1010 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 12 

9:POKEMC+24,15 :rem 28 

1020 FORX=0TO17 :rem 122 

1030 Y=INT(NT%(X,0)/256) :rem 46 

1040 POKEMC+0, NT%(X,0)-(Y*256) :rem 117 

1050 POKEMC+1, Y:P0KEMC+4, 17 : rem 82 

1060 FORY=1TONT%(X,1)*50:NEXTY :rem 70 

1070 POKEMC+4,16:FORY=1TO30:NEXTY,X :rem 189 

1080 POKEMC+24,0 :rem 117 

1090 RETURN :rem 170 

8000 Y$=STR$(X) :X=LEN(Y$) :ONXGOTO8010, 8010, 8020, 80 

30 :rem 215 

8010 X$="$0.0"+RIGHT$(Y$,1) :RETURN :rem 138 

8020 X$="$0."+RIGHT$(Y$,2):RETURN :rem 92 

8030 X$="$"+MID$(Y$,2,1)+". "+RIGHT$(Y$,2) :RETURN 

:rem 78 

9000 DATA8583 , 2 , 8583 , 2 , 7647 ,1,7217,1,7217,2, 6812 , 1 

,7217,1,7217,4 :rem 162 

9010 DATA6812, 1,7217, 1,7217, 2, 6812, 1,7217, 1,8583, 2 

,7217,1,8583,1 irem 152 

9020 DATA7647,4,6430,2 :rem 116 

9100 DATACORN , FLAKES , DISH , SOAP , CAKE , MIX , GINGER, SNA 

PS, BREAD, CRUMBS : rem 32 

9110 DATARICE," ", BROWN, SUGAR, SUGAR, CUBES, OAT, MEAL 

, CORN, MEAL : rem 42 

9120 DATACORN , CH I P S , P OT ATO , FLAKE S, FUDGE, MIX, PIZZA, 

MIX, FRUIT, BARS : rem 47 

9130 DATAPASTA, " ", BAKING, SODA, BAKING, POWDER, WAFFL 

E,MIX, RED, BEANS : rem 103 
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Skill area: Science 
Level: 4 

Equipment required: None 
Modification: Yes 
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The Fbrmidable Element Man 

They say everything in the world is made up of elements. The 
Element Man is no exception. Even though he's made of the same 
stuff as you and I, the Element Man is not very nice. He's not ex- 
actly the kind of guy you'd invite to a party. 

Two things are true about the Element Man: He knows where 
he's not wanted; and hell do his best to be there an57way. But if 
you know your elements, you can keep him off jraxir doorstep. 

How to Play 

The computer wiQ pick the name of a chemical element, tell how 
many letters it contains, its atomic number and its s)mibol. You 
must guess the element by selecting one letter at a time. If you 
pick more than 11 incorrect letters, the Element Man will follow 
you around for the rest of the week. 

After you type a letter and press RETURN, one of two things 
will happen. If the letter belongs in the name of this particular 
element, it will appear in its proper place in the word. But, if the 
letter does not belong in the word, the computer will buzz, the 
screen will temporarily go black, the letter will appear on the bot- 
tom of the screen, and a piece of the Element Man will appear. If 
you guess 11 incorrect letters, the Element Man is yours to keep. 

A list of the chemical elements appears below. Familiarize 
yourself with the names, but try not to use the list when you're 
playing "Element Man." 

actinium berkelium carbon dysprosium 
aluminum beryllium cerium einsteinium 
americium bismuth cesium erbium 
antimony boron chlorine europium 

argon bromine chromium fermitim 

arsenic cadmiiun cobalt fluorine 
astatine calcium copper francium 
barium californium curium gadolinium 
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gallitim 

gennanium 

gold 

hafnixim 

helium 

holmium 

hydrogen 

indium 

iodine 

iridium 

iron 

loypton 

lanthanum 

lawrencium 

lead 

lithium 

lutetium 

magnesium 



manganese 

mendeleviimi 

mercury 

molybdenum 

neodymium 

neon 

neptimium 

nickel 

niobium 

nitrogen 

nobeUtmi 

osmixmt 

oxygen 

palladixmi 

phosphorus 

platinum 

plutonium 

polonium 



potassitim 

praseod5nnium 

promethium 

protactinium 

radiimi 

radon 

rhenium 

rhodium 

rubiditim 

rutheruum 

samariiun 

scandium 

selenium 

silicon 

silver 

sodium 

strontium 

sulfur 



tantaliun 

technetium 

tellurium 

terbium 

thallium 

thorium 

thulitun 

tin 

titanitim 

timgsten 

uranitrai 

vanadivmi 

xenon 

ytterbium 

yttrium 

zinc 

zirconium 



Scoring 

No point score is given in Element Man. At the end of each 
round, the computer will ask if you want to try another element. 
Type Y for Yes or N for No. If you indicate you do not want to play 
again, the computer will tell you how many elements were 
guessed correctly and how many you missed since you began 
playing this session of Element Man. 

Element Man 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM ELEMENT MAN :reni 251 

90 POKE 53272,23 : rem 44 

100 NW%=103:MC=54272:VC=53248:CB=828:PRINTCHR$(147 

); :rem 219 

110 DIM NT%(15),WT$(NW%-1),WI$(19),LL$(NW%-1),XY$( 

NW%-1) :rein 228 

120 Sl= ( (PEEK( 53272 )AND240)/16)*1024: 82=55296: POKE 

VC+32,6:POKEVC+33,15 :rem 127 

125 FORX=54272TO54296:POKEX,0:NEXTX :rem 179 

130 PORX=0TO1 5 : READZ : NT% ( X ) = Z : NEXTX : F0RX=1 TONW% : RE 

ADX$:WT$(X-1)=X$:NEXTX :rem 203 

135 FOR X=1T0NW%:READ X$ ,XX$ : LL$ (X-1 )=X$ :XY$ (X-1 )= 

XX$: NEXTX :rem 51 
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140 PRINT" {BLK} {down} {RVS}{13 SPACES IELEMENT 

{2 SPACES 1mAN{ 13 SPACES } {OFF} " :rem 145 

150 PRINT" {2 DOWN} THE COMPUTER WILL PICK A CHEMIC 
AL" trem 47 

160 PRINT" ELEMENT AND SHOW YOU THE NUMBER OF" 

:rem 194 

165 PRINT" LETTERS IT CONTAINS." ireiti 186 

170 PRINT" {2 DOWN} YOU MUST GUESS THE ELEMENT BY S 

ELECTING ONE LETTER AT A TIME." :rem 225 

180 PRINT" {2 DOWN} I^F YOU PICK MORE THAN 11 INCORR 

ECT" :reni 40 

190 PRINT" LETTERS, THE FORMIDABLE ELEMENT MAN 

{5 SPACES}WILL APPEARll" :rem 137 

200 PRINT" {2 DOWN} {9 SPACES} PRESS ANY KEY TO START 
":GOSUB2500 :rem 149 

205 PRINT" {2 DOWN} {11 SPACES} (15 SECOND DELAY)" 

:rem 108 

210 GETX$sIFX$=""THEN210 :rera 119 

220 FORX=1TONW%:POKECB+X,0:NEXTX :rem 76 

230 FORX=1TONW%:GOSUB800:POKSCB+Z,X:NEXTX : rem 201 
300 F0RLC=1T0NW% :rem 228 

310 X=PEEK(CB+LC) : WO$=WT$ (X-1 ) :SY$=LL$ (X-1 ) :XZ$=XY 
$(X-1) :reni 40 

320 LW%=LEN(WO$) :rem 148 

330 FORX=0TOLW%-1 irem 11 

340 WI$(X)=MID$(W0$,X+1,1) :NEXTX :rem 104 

350 LC%=0 :0F%=881 : BC%=0 : 6OSUB1000 :LW%=LW%-1 

:rem 188 

400 GETX$:IFX$=""THEN400 : rem 121 

410 X=ASC(X$) iIFX<65ORX>90THEN400 :rem 249 

500 HI=0:FORY=0TOLW%:IFWI$(Y)<>X$THEN530 :rem 217 
510 HI=l:WI$(Y)="$":POKESl+600+CC+(Y*2),X-64 

:rem 141 

520 LC%=LC%+1 :rem 152 

530 NEXTY:IFHI=1THEN560 :rem 194 

540 GOSUB3000:BC%=BC%+1 :rem 3 

550 IFBC%>10THENGOSUB2000:LO%=LO%+1:FORX=1TO3000:N 

EXTX:GOTO700 :rem 94 

560 IFLC%<=LW%THEN400 :rem 226 

570 GOSUB4000:WI%=WI%+liGOTO700 :rem 71 

700 PRINTCHR$(147);SPC(11);"{BLK}{3 DOWN } ANOTHER E 

LEMENT?" :rem 130 

710 PRINT"{2 down} ";SPC( 13); "ENTER {RVS}y{OFF} OR 

{SPACE} {RVS} N{ OFF}" :rem 110 

720 GETX$:IFX$=""THEN720 :rem 131 

730 IFX$="Y"THENNEXTLC:POKE198,1:GOTO220 :rem 235 
740 IPX$<>"N"THEN720 :rem 122 

750 PRINT"{3 down} {11 SPACES} NUMBER CORRECT =";WI% 

:rem 184 
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760 PRINT" {2 DOVnj}{ll SPACES } NUMBER MISSED 

{2 SPACES }=" ;L0% : rem 86 

770 GOSUB2500 : FORX=1TO500 :NEXTX :PRINTCHR$ ( 147 ) 

trem 138 

775 POKE53272,21 :rem 100 

780 END srem 118 

800 Y=0 :rem 94 

810 Z=INT ( RND ( 1 ) *NW% ) +1 : IFPEEK ( CB+Z ) =0THENRETURN 

:rein 231 

820 Y=Y+1:IPY<10THEN810 :rem 108 

830 Z=l :rera 99 

840 IFPEEK ( CB+Z )=0THENRETURN : rem 39 

850 Z=Z+1:GOTO840 :rem 249 

1000 PRINT" {CLR} {BLK} {down} {9 SPACES }E L E M E N T 
{3 SPACES }M A N" zrera 172 

1110 PRINT" {7 D0WN}SYMB0L:"SY$"{2 DOWN}" :rem 209 
1120 PRINT"AT0MIC":PRINT"NUMBER: "XZ$ :rem 54 

1500 PRINT"T2 D0WN}{BLK} 

it*************************************** 

■"^7 Trim 132 

1510 PRINT" {2 DOWN} ENTER A LETTER:" :rem 131 

1515 CC=INT((40-(2*LW%) )/2) :rem 131 

1520 X=(LW%-1) :rem 212 

1530 FORY=0TOX*2STEP2 :rem 59 

1540 POKES1+600+CC+Y, 100 : POKES2+600+CC+Y, : NEXTY 

:rem 66 

1550 RETURN :rem 171 

2000 FORX=0TOLW%:IFWI$(X)="$"THEN2020 trem 167 

2010 Y=ASC(WI$(X)) :POKESl+600+CC+(X*2),Y-64 

:rem 153 

2020 NEXTX : rem 91 

2030 POKEMC+0 , : POKEMC+1 , : POKEMC+5 ,15: POKEMC+6 , 1 5 
:POKEMC+24,15 :rem 223 

2040 FORX=40TO10STEP-2 :rem 69 

2050 POKEMC+1 , X : POKEMC+4, 17 : PORY=1TO40 :NEXTY 

:rem 19 

2060 POKEMC+4, 16 :NEXTX :rem 74 

2070 POKEMC+24,0 :rem 117 

2080 RETURN :rem 170 

2500 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 1 2 
9:POKEMC+24,15 :rem 33 

2510 FORX=0TO15 :rem 125 

2520 Y=INT(NT%(X)/256) :rem 215 

2530 POKEMC+0, NT%(X)-(Y*256) :rem 30 

2540 POKEMC+1, Y: POKEMC+4, 17 :rem 87 

2550 F0RY=1T075:NEXTY: POKEMC+4, 16 :rem 70 

2560 F0RY=1T015:NEXTY,X :rem 218 

2570 POKEMC+24,0 :rem 122 

2580 RETURN :rem 175 
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3000 PRINT "{BLU}"; trem 238 

3005 ON(BC%-i-l )GOTO3010, 3020, 3030, 3040, 3050, 3060, 30 

70,3080,3090,3100,3110,3120 :rem 48 

3010 PRINT" {HOME} {3 DOWN} " ;SPC( 18) ; " i@iXg@i " :G 

OTO3500 :rein 144 

3020 PRINTSPC(17);"gMiO*OEG3":GOTO3500:rem 85 
3030 PRINTSPC(17);"< -~>^:GOTO3500 trem 3 

3040 PRINTSPC(17) j"gNl * gG3 " :GOTO3500 

:rein 188 

3050 PRINTSPC(18);"iT3i+igT3":GOTO3500 

:rein 155 

3060 PRINTSPC(18);"g3 +3":GOTO3500 trem 162 

3070 PRINTSPC(16);"gA3g2 +3 {RVS}e{OPP} g2 +i 

§Si":GOTO3500 jrem 142 

3080 PRINTSPC(16) ;"- {RVS}l3 SPACES} {OFF} -":G0T03 

500 srem 14 

3090 PRINTSPC(16);"gE3 §3 +3 gE3 " :GOTO3500 :rem 5 
3100 PRINTSPC(18);"g+3 g+3 " SGOTO3500 :reni 247 
3110 PRINTSPC(17);"g£3g+3 g+3g£3":rem 12 
3500 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 15 : POKEMC+6 , 15 

:POKEMC+24,15:POKEVC+33,0 trem 209 

3505 POKEMC+1, 20 trem 118 

3510 POKEMC+4,17:FORy=lTO300:NEXTY trem 107 

3520 POKEMC+4,16:POKEVC+33,15tPOKEMC+24,0 trem 134 
3530 P0KES1+0F% , X-64 1 P0KES2+0F% , 1 0F%=0F%+1 

trem 244 

3540 RETURN trem 172 

4000 POKEMC+0 , 1 POKEMC+1 , 1 POKEMC+5 , 1 5 1 POKEMC+6 , 1 5 

:P0KEMC+24,15 trem 222 

4010 FORX=2T015tPOKEVC+33,Xf POKEMC+1, ( X* 5 ) : POKEMC+ 

4,17 trem 8 

4020 FORy=lTO40:NEXTYtPOKEMC+4,16tNEXTX trem 9 

4030 POKEMC+24,0 trem 115 

4040 RETURN trem 168 

5000 DATA6430, 6069, 6430, 7217,8101,8583,8101,7217,6 

430,6069,5407,5728 trem 136 

5010 DATA4817, 6430, 5407, 4291 trem 165 

10000 DATAACTINIUM, ALUMINUM, AMERICIUM, ANTIMONY, ARG 
ON trem 255 

10010 DATAARSENIC , ASTATINE , BARIUM, BERKELIUM, BERYLL 
lUM trem 47 

10020 DATABISMUTH , BORON, BROMINE , CADMIUM, CALCIUM 

trem 99 

10030 D ATACALI FORNIUM , CARBON , CERIUM, CESIUM, CHLORIN 
E trem 139 

10040 DATACHROMIUM, COBALT, COPPER, CURIUM, DYSPROSIUM 

trem 149 

10050 DATAEINSTEINIUM, ERBIUM, EUROPIUM, FERMIUM, FLUO 
RINE trem 189 
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10060 DATAFRANCIUM, GADOLINIUM, GALLIUM, GERMANIUM, GO 
LD :rem 213 

10070 DATAHAFNIUM, HELIUM, HOLMIUM, HYDROGEN, INDIUM 

:rein 207 

10080 DATAIODINE, IRIDIUM, IRON, KRYPTON, LANTHANUM 

:rem 165 

10090 DATALAWRENCIUM, LEAD, LITHIUM, LUTETIUM,MAGNESI 
UM trem 12 

10100 DATAMANGANESE , MENDELEVIUM, MERCURY, MOLYBDENUM 
,NEODYMIUM trem 96 

10110 DATANEON, NEPTUNIUM, NICKEL, NIOBIUM, NITROGEN 

:rein 225 

10120 DATANOBELIUM, OSMIUM, OXYGEN, PALLADIUM, PHOSPHO 

RUS :rem 129 

10130 DATAPLATINUM, PLUTONIUM, POLONIUM, POTASSIUM, PR 

ASEODYMIUM trem 205 

10140 DATAPROMETHIUM, PROTACTINIUM, RADIUM, RADON, RHE 

NIUM :rem 183 

10150 DATARHODIUM, RUBIDIUM, RUTHENIUM, SAMARIUM, SCAN 

DIUM :rem 174 

10160 DATASELENIUH, SILICON, SILVER, SODIUM, STRONTIUM 

:rem 176 

10170 DATASULFUR, TANTALUM, TECHNETIUM, TELLURIUM, TER 
BIUM J rem 219 

10180 DATATHALLIUM, THORIUM, THULIUM, TIN, TITANIUM 

:rem 202 

10190 DATATUNGSTEN, URANIUM, VANADIUM, XENON, YTTERBIU 
M 

10200 DATAYTTRIUM, ZINC, ZIRCONIUM :rem 151 

11000 DATA "AC" , 89 , "AL" , 13 , "Mi" , 95 , "SB" , 51 , "AR" , 18 

:rem 69 

11010 DATA "AS" , 33 , "AT" , 85 , "BA" , 56 , "BK" , 97 , "BE" , 4 

:rem 15 

11020 DATA"BI " , 83 , "B" , 5 , "BR" , 35 , "CD" , 48, "CA" , 20 

iTem 176 

11030 DATA"CF" , 98, "C" , 6 , "CE" , 58 , "CS " , 55 , "CL" , 17 

trem 206 

11040 DATA"CR" , 24 , "CO" , 27 , "CU" , 29 , "CM" , 96 , "DY" , 66 

trem 113 

11050 DATA"ES " , 99 , "ER" , 68 , "EU" , 63 , "FM" , 100 , "F" , 9 

trem 38 

11060 DATA"FR" , 87 , "GD" , 64, "GA" , 31 , "GE" , 32 , "AU" ,79 

trem 81 

11070 DATA"HF" , 72 , "HE" , 2 , "HO" , 67 , "H" , 1 , "IN" , 49 

trem 170 

11080 DATA" I " , 53 , "IR" , 77 , "FE" , 26 , "KR" , 36 , "LA" , 57 

trem 32 

11090 DATA"LR" , 103 , "PB" , 82 , "LI " , 3 , "LU" , 71 , "MG" , 12 

trem 107 
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11100 


DATA"MN" 


,25, 


"MD",101, "HG",80 


,"M0 


",42 


,"ND",60 














:rem 131 


11110 


DATA"NE" 


,10, 


"NP",93,"NI",28, 


"NB" 


,41, 


"N" , 7 














:rein 231 


11120 


DATA "NO" 


,102 


,"OS",76,"0",8," 


PD", 


46," 


P",15 














trem 233 


11130 


DATA"PT" 


,78, 


"PU",94,"PO",84, 


"K" , 


19," 


PR", 59 














:rem 101 


11140 


DATA"PM" 


,61, 


"PA", 91, "RA", 88, 


"RN" 


,86, 


"RE", 75 














:rem 132 


11150 


DATA"RH" 


,45, 


"RB",37, "RU",44, 


"SM" 


,62, 


"SC",21 














:rem 131 


11160 


DATA"SE" 


,34, 


"SI", 14, "AG ",47, 


"NA" 


,11, 


"SR" , 38 














:rein 103 


11170 


DATA"S", 


16," 


TA",73,"TC",43," 


TE", 


52," 


TB",65 














~irem 44 


11180 


DATA"TL" 


,81, 


"TH",90,"TM",69, 


"SN" 


,50, 


"TI ",22 














trem 154 


11190 


DATA"W", 


74," 


U",92,"V",23,"XE 


",54 


,"yB 


",70 














:rein 187 


11200 


DATA"Y", 


39," 


ZN",30,"ZR",40 






:rein 22 
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Skill area: Memory and Logic 
Level: 4 

Equipment required: None 

IModificatlon: Yes ^ 

LJ 

The Race <-j 



Four by Four 
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You're dreaming again, and anything can happen in a dream. 
This time you're the smartest person on earth, and you're on tele- 
vision to match wits with a computer. In your dream, you need to LJ 
know something about every subject imaginable. You also must 
be able to come up with your answers quickly. You can't hope to 
beat a computer unless you're fast. LJ 

How to Play U 

The computer will select four categories and four letters of the 
alphabet. In each category you then enter a word that begins with 
the letter the computer has picked. An asterisk (*) indicates you LJ 
can use any letter to begin a word. For example, the computer has 
chosen the letters A, *, K, and W, and the first category is mam- 
mals. For the letter A, you select aardvark. The * is a wild card, so ^ 
you can type in the name of any animal. At first you can't think of 
an animal whose name begins with a K, so you skip K for now by 
pressing the RETURN key. (The computer will return to this ^ 
question later.) For the W, you type wombat. Then the next cate- 
gory appears. 

After you've gone through all four categories, the un- LJ 
answered questions will appear again. The categories will repeat 
vmtil one of three things happens: 

• You've answered all the questions. ^ 

• Your fotir-minute time limit is up. ^ 

• You t5^e QUIT instead of entering an answer. 

Good spelling is not essential for playing 'Tour by Four." As 
long as you enter a word beginning with the correct letter, the LJ 
computer will consider the answer correct. This puts the respon- ^ 
sibility on you to answer the questions honestly. You could cheat, 
but that is not the object of the game. LJ 

When a category asks for people's names, type the person's 
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last name. For example, when asked for the name of a United 
States president, you can't put Zachary Taylor's name in the Z col- 
umn. If you draw Z in the U.S. Presidents category, youH have to 
leave that space blank because there are no presidents whose sur- 
names begin with the letter Z. 

Scoring 

After you've answered all the questions, run out of time, or quit 
the round, your score will appear. The score is based on the num- 
ber of correct answers you entered {coned means the answer be- 
gan with the right letter), along with the time it took you to finish 
the round. 

The computer will also give the high score on all rounds of 
Four by Four you've played in this session. You may only be play- 
ing against a computer in your dream, but in reality you can play 
against yourself or against another person. If you're playing Four 
hy Four with a friend, you can play a round and then tell the com- 
puter to give your friend the same categories £ind letters. Then 
youll see who's the quickest to come up with answers. 

Four by Four 

Remember, do not type the checksum number at the end of each hne. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. ' 

1 REM FOUR BY POUR trem 40 

10 VC=53248 : POKEVC+32 , 14 : POKEVC+33 , 1 : PRINTCHR$ ( 147 

) :rem 5 

20 MC=54272:FORX=MCTO54296iPOKEX,0iNEXTX irem 20 
50 DIMC$(34),L$(27),A$(3,3),C%(3),L%(3),NT%(29):X= 

RND(-TI) :rein 222 

60 M=( (PEEK(53272)AND240)/16)*1024 :rem 251 

70 C=55296-M irem 108 

80 FORX»0TO29:READZ:NT%(X)=ZtNEXTX :rein 228 

100 PRINT" {BLU){ 14 SPACES} {RVS} POUR BY P0UR{0PP1" 

;rem 56 

110 PRINT" {2 DOWN} THE COMPUTER DISPLAYS FOUR GATE 
G0RIES{3 spaces} and four LETTERS." irem 192 
120 PRINT" {down} enter AN ANSWER THAT MATCHES THE" 

:rein 105 

130 PRINT" CATEGORY AND STARTS WITH THE REQUESTED 
{2 SPACES} LETTER ('*' = ANY LETTER)." :reni 2 

140 PRINT" {DOWN} PRESS { RVS } RETURN { OFF} TO SKIP A 
{space} QUESTION AND {6 SPACES} GO BACK TO IT LAT 
ER. " :reni 123 
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150 PRINT" {down} type { RVS} QUIT {OFF } TO STOP THE G 
AME BEFORE THE{3 SPACES}P0UR MINUTE TIME LIMIT 
• " : rem 3 

160 PRINT" {down! SCORING IS BASED ON CORRECT ANSWE 
RS{5 SPACES }AND THE TOTAL TIME USED." :rera 33 

165 GOSUB7500 trem 232 

170 PRINT"{3 DOWN} {12 SPACES }{ PRESS ANY KEY){BLK}" 

:reni 219 

180 FORX=0TO34 :READX$ :C$(X)=X$ :NEXTX:FORX=0TO27 :RE 

ADX$:L$(X)=X$:NEXTX{HS=0 :rein 216 

190 GETX$:IFX$=""THEN190 :reni 133 

200 FORX=0TO3 :reiti 20 

210 Y=INT(RND(1)*35) :IFX=0THENGOTO235 :rem 237 

220 QQ=0:PORZ=0TOX-1:IFC%(Z)=YTHENQQ=1 :rem 149 
230 NEXTZ:IPQQ=1THEN210 : rem 201 

235 C%(X)=Y :rem 65 

240 NEXTX :rem 45 

250 FORX=0TO3 :rem 25 

260 Y=INT(RND(1)*28) :IFX=0THEN285 :rem 192 

270 QQ=0:FORZ=0TOX-1:IFL%(Z)=YTHENQQ=1 :rem 163 
280 NEXTZ : IFQQ=1THEN260 :rem 211 

285 L%(X)=Y :rem 79 

290 NEXTX srem 50 

300 FORX=0TO3 : FORY=0 T03 : A$ ( X , Y ) = " " : NEXTY , X : T I $ = " 00 

0000" :rem 18 

400 HC=0:X-0 :rem 139 

405 Y=0 :rem 95 

410 PORZ=0TO3:IFA$(X,Z)=""THENY=1 :rem 237 

420 NEXTZ :IFY=0THEN7 00 : rem 132 

430 HC=1:PRINT"{CLR} {2 DOWN} {RED} {2 SPACES }" ;C$ (C% 

(X));"{BLK}" zrem 127 

440 FORY=0TO3:PRINT"{3 DOWN} {2 SPACES }{ RED }"; L$ ( L% 

(Y));"{bLK}":NEXTY :rem 109 

450 X$="{BLK}{H0ME}{6 DOWN}":FORY=0TO3:PRINTX$;" 

{5 RIGHT}";A$(X,Y) :X$=X$+"{4 D0WN}":NEXTY 

:rem 113 

500 Y=0 :rem 91 

505 IFA$(X,Y)<>""THEN600 :rem 63 

507 QQ=0 J rem 171 

510 GOSUB7000 :rem 221 

515 IFQQ=1THEN800 :rem 1 

520 IFI$="QUIT"THEN800 :rem 30 

530 IFL$(L%(Y) )="*"ANDLEN(I$)>0THEN550 :rem85 
540 IFLEN ( I $ ) =0ORLEFT $(I$,1)<>L$(L%(Y)) THEN600 

:rem 88 

550 A$(X,Y)=I$ zrem 215 

600 Y=Y+1:IFY<=3THEN505 :rem 120 

700 X=X+1:IFX<=3THEN405 irem 117 

710 IFHC=1THEN400 :rem 227 
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'I 800 S=0:FORX=0TO3:W=0:FORY=0TO3 :rein 207 

810 IFA$(X,Y)<>""THENW=W+1 :rem 239 

~ 820 NEXTY:S=S+(W*W) :NEXTX :renill6 
f-^ 830 FORX=0TO3:W=0:FORY=0TO3 :rem 216 

840 IFA$(Y,X)<>""THENW=W+1 :rem 242 

r~) 850 NEXTY:S=S+(W*W) :NEXTX:Y=0:IFS<16THEN870 : rem 4 

860 Y=INT( (240-(Tl/60) )/4) :IFY<0THENY=0 : rem 237 
O 870 S=S+Y:Z=0:IFS>HSTHENHS=S:Z=1 :rem 88 

_1 900 PRINT" {CLR}{BLK} {down} {15 SPACES} {RVS} GAME OVE 

" RI {off} {down}" :rem 202 

^ 910 PRINT" {down} {5 SPACES} YOUR SCORE =";S : rem 18 

920 PRINT" {down} {5 SPACES}HIGH SCORE =";HS :rem 44 
r-\ 930 IFZ=1THENPRINT"{D0WN} {5 SPACES} { RVS} YOU SET A 

{SPACE} NEW HIGH I {off}" :rem 253 

O 940 PRINT" {3 DOWN} {5 SPACES}ENTER REPLAY OPTION:" 
_ :rera 255 

~ 950 PRINT" {2 DOWN} {7 SPACES }{ RVS } E { OFF } END THE GA 

A ME" :rem 76 

960 PRINT" {DOWN} {7 SPACES }{ RVS } S { OFF } REPLAY WITH 
r-> {SPACE}THE same setup" :rem 25 

970 PRINT" {down} {7 SPACES }{ RVS }n{ OFF} REPLAY WITH 
O {SPACE} A NEW SETUP" :rem 57 

^ 980 GETX$:IFX$=""THEN980 :rem 147 

990 IFX$="S"THEN300 irem 67 

1000 IFX$="N"THEN200 : rem 92 

1010 IFX$<>"E"THEN980 :rem 160 

r-) 1020 GOSUB7500 :rem 15 

1030 PRINTCHR$(147) : rem 63 

r-| 1040 END :rem 156 

7000 I$="":J=245+(Y*160)+M:POKEJ,160:POKEJ+C,0 
^ :rem 18 

_ 7010 GETX$: I FTI$>" 000400 "THENQQ=1: RETURN :rem 173 

7020 IFX$<>""THEN7030 :rem 139 

r-i 7022 TL$=MID$(TI$,3,2)+"."+MID$(TI$,5,2) : rem 48 

7024 PRINT"{H0ME}";SPC(17);"{RVS}{BLU}";TL$;"{BLK} 
O {off}"; :rem 22 

7026 GOTO7010 :rem 208 

7030 L=ASC(X$) :IFL<>20THEN7100 :rem 223 

_ 7040 IFLEN(I$)=0THEN7010 :rem 91 

7050 X$=LEFT$(I$,LEN(I$)-1) :I$=X$:P0KEJ+LEN(I$)»16 
(— ^ 0:POKEJ+LEN(I$)+1,32 :rera 191 

7060 POKEJ+C+LEN ( 1$ ) , : POKE J+C+LEN ( I $ ) +1 , 1 : GOTO701 
m :rem 181 

7100 IFL=13THENP0KEJ+LEN( 1$ ) , 32 : POKE J+C+LEN ( I $ ) , 1 : 
^ RETURN :rera 165 

7150 IFL>63THENL=L-64 :rem 234 

^ 7160 POKEJ+LEN(I$),L:POKEJ+C+LEN(I$),0:I$=I$+X$ 
^ srem 196 

7170 POKEJ+LEN(I$),160:POKEJ+C+LEN(I$),0:GOTO7010 
m :rem 83 
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7500 REM *** PLAY THE SONG *** : rem 250 

7510 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 12 

9:POKEMC+24,15 :rem 39 LJ 

7520 PORX=0TO29 :rem 136 

7530 Y=INT(NT%(X)/256) rrem 221 ^ 

7540 POKEMC+0, NT%(X)-(256*Y) srem 36 

T550 POKEMC+1, Y:P0KEMC+4, 17 :rem 93 

7560 FORY=1TO200:NEXTY:POKEMC+4,16 rrem 114 

7570 FORy=lTO20:NEXTY,X:POKEMC+24,0 srem 194 

7580 RETURN srem 180 [_J 

8000 DATA7217, 5728, 4291, 4291, 5728, 7217, 7217, 7217, 6 

430,5407,4291,4291 srem 147 LJ 

8010 DATA5407 , 6430 , 6430 , 6430 ,7217,5728, 4291 , 4291 , 5 

728 srem 151 

8020 DATA7217, 7217, 7217, 8583, 8583, 7217, 6430, 5728, 5 

728 srem 177 

9000 DATA"NAMES OF U.S. CITIES" , "NAMES OF U.S. STA LJ 

TES", "NAMES OF FRUITS" srem 156 

9010 DATA"NAMES OF VEGETABLES "," FAMOUS SINGERS", "C Lj 

HEMICAL ELEMENTS" srem 108 

9020 DATA"U.S. PRESIDENTS" , "NAMES OP BIRDS" srem 27 
9030 DATA"NAMES OF FLOWERS" , "FAMOUS WOMEN" , "FAMOUS ^ 

MEN" srem 49 

9040 DATA"MUSICAL INSTRUMENTS" , "ORGANS OF THE BODY ^ 

" srem 131 

9050 DATA"NAMES OP ANIMALS", "NATIONS OF THE WORLD" Lj 

, "NAMES OP OCCUPATIONS" srem 133 

9060 DATA"FAMOUS SONG TITLES", "NAMES OF CARS", "NAM 

ES OF SPICES" srem 230 

9070 DATA"NAMES OF INSECTS" , "FAMOUS BOOK TITLES"," 

BOOKS OP THE BIBLE" srem 77 

9080 DATA"FAMOUS AUTHORS "WEIGHTS AND MEASURES" 

srem 227 LJ 
9090 DATA"WORLD LEADERS", "NAMES OP MAMMALS", "NAMES 
OF COLORS" srem 132 

9100 DATA"NAMES OP PISH" , "BREEDS OF DOG" , "MAGAZINE , . 

NAMES" srem 31 ^ 

9110 DATA "CORPORATION NAMES" srem 237 ^ 

9120 DATA"MOVIE ACTORS", "MOVIE ACTRESSES ", "NAMES 

P MOVIES" srem 95 LJ 

9130 DATA"NAMES OP T.V. SHOWS" srem 206 

9500 DATAA,B,C,D,E,F,G,H,I,J,K,L,M,N,0,P,R,S,T,U,V LJ 

,W,Y,Z, *,*,*,* srem 106 ^ 

LJ 
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Heavenly Bodies 



r") Skill area: Science 
Level: 4 

^ Equipment required: None 
^ Modification: Yes 

^ Exploring the Solar System 

"Heavenly Bodies" is a question-and-answer game designed to 
P-, teach the planets of the solar s)^tem. Points are given if you cor- 
rectly identify a planet from a clue given. 

How to Play 

^ The game consists of 100 questions, each of which pertains to one 
(— ) of the nine known planets or the Planet X of astronomical theory. 
^ You indicate your answer by entering the first letter of the planet. 

If you enter an incorrect answer, the correct answer will flash on 
r-) the computer screen before play resximes. 

You can quit playing at any time by pressing the fl key. Your 

percentage score will not be affected if you quit before all 100 
r-) questions have been asked. 

r-) Scoring 

^ You will receive ten points for each correct answer, and one point 
will be deducted for each incorrect response. A score, based on 

r-^ the number of questions asked and the ntimber of questions an- 
swered correctly, wiU be shown at the end of the game. You will 
be given both a numerical score and your percentage score. 

Heavenly Bodies 



Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 



O 1 REM HEAVENLY BODIES :rem 39 

100 NQ=100:S»((PEEK(53272)AND240)/I6)*1024trem 211 
110 CB=828sX=RND(-TI) :VC=53248tMC«54272 :rein 229 
112 PORX=54272TO54296:POKEX,0:NEXTX trem 175 

~ 115 POKEVC+32,6:POKEVC+33,0 jrem 64 

120 PRINTCHR$(147);"{WHT}{D0WN1{RVS}{11 SPACES}HEA 
VENLY{2 spaces} bodies {13 SPACES 1 {OFF} " ; 
O :rem 148 

125 READX$!lFX$<>"$SPECIAL"THEN125 irem 31 

O 127 



u 
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127 DIM NT%(26,1):PORX=0TO26:FORY=0TO1:READZ:NT%(X ^ 
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,Y)=Z:NEXTY,X jrem 201 

128 FORX=832T0832+63:READZjPOKEX,Z»NEXTX :rem 80 
130 PRINT" {2 DOWN) YOU WILL BE PRESENTED WITH PACTS ij 

ABOUT" :rem 21 

140 PRINT"EACH OP THE PLANETS IN THE SOLAR SYSTEM. LJ 

"t :rem 75 

150 PRINT" {DOWN} YOU MUST INDICATE THE PLANET TO WH LJ 
ICH{3 SPACES }THAT PACT APPLIES." :reni 69 , 

160 PRINT" {2 DOWN) {14 SPACES)— SCORING— " :rem 83 
170 PRINT" {DOWN} {12 SPACES } CORRECT { 3 SPACES}= 

{2 SPACES}+10":PRINT"{12 SPACES ) INCORRECT = 
{3 SPACES )-l" :rem 164 ^ 

175 PRINT" {down} {9 SPACES}PRESS {RVS)P1{0PP} TO QU 

IT EARLY" :rem 138 ^ 

180 PRINT"{2 D0WN}{15 SPACES) {RVS} GOOD LUCKl{OPP)" 

I rem 169 V 
185 GOSUB8000 :rem 230 

190 PRINT" {2 down) {8 SPACES) (PRESS ANY KEY TO STAR 

T){YEL)" :rem 11 i j 

195 GETX$:IPX?=""THEN195 :reni 143 ^ 

200 S%=0iQA=0:QC=0tPORX=lTONQ :rem 20 LJ 

210 POKECB+X,0:NEXTX:PRINT"{DOWN){4 SPACES) (GAME W 

ILL START IN TEN SECONDS ) {WHT) " ; : rem 17 ^ 

220 F0RX=1T0NQ :rem 131 

230 Y=0 :rem 91 

240 Z=INT(RND(1)*NQ)+1:IPPEEK(CB+Z)=0THEN290 ^ 

:rem 116 

250 Y=Y+1:IPY<6THEN240 :rem 59 LJ 

260 Z=l :rem 96 

270 IPPEEK(CB+Z)=0THEN290 trem 223 LJ 

280 Z=Z+1:GOTO270 :rem 243 , , 

290 POKECB+Z,X:NEXTX:POKEVC+33,15:PRINTCHR$(147) "-^ 

:rem 3 

300 X=l :rem 89 

305 Y=PEEK(CB+X)-1 :rem 10 lJ 

310 RESTORE tIPYs0THEN3 30 :rem 12 

320 P0RZ=1T0Y:READQ$,A$:NEXTZ :rem 111 LJ 

330 READQ$,A$ :rem 184 

400 PRINTCHR$(147);"{BLK}{24 DOWN) ";SPC( 15 ); "SCORE ^ 
=";S%,; :rem 180 , , 

403 PRINT"{H0ME){RVS)**********{2 SPACES ) HEAVENLY 

{2 SPACES) BODIES {2 SPACES)**********{0PF)"; LJ 

trem 180 

405 F0RZ=1T08 1 PRINT " { BLU ) { RVS ) { 40 SPACES ) { OPP ) " ; z N LJ 

EXTZ I rem 255 

410 PRINT"{BLK){2 DOWN) {3 SPACES )ENTER YOUR ANSWER ^ 

trem 239 

420 PRINT" {DOWN) {4 SPACES)M = MERCURY" trem 41 
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430 PRINT" {4 SPACES )V = VENUS" 
440 PRINT" {4 SPACES }E = EARTH" 
450 PRINT" {4 SPACES} A = MARS" 
460 PRINT" {4 SPACES} J = JUPITER" 
470 PRINT" {4 SPACES }S = SATURN" 
480 PRINT" {4 SPACEsiu = URANUS" 
490 PRINT" {4 SPACES }N = NEPTUNE" 
500 PRINT" {4 SPACES}? = PLUTO" 
510 PRINT" {4 SPACES }X 



:rem 140 
:rein 95 
:rem 27 
:rem 21 
trem 217 
:rein 221 
trem 24 
:rem 135 
:rem 24 



PLANET X" 

600 PRINT"{BLU}{RVS}{H0ME}{4 DOWN} " ;Q$ ; " . {OPF} 

irem 222 

610 POKE198,0 :rein 196 

620 GETX$:IPX$=""THEN620 :rem 129 

630 IFASC(X?)=133THEN910 :rem 105 

635 QA=QA+1 : rem 91 

637 IFX$=A$THEN820 :rem 22 

640 IFX$="M"0RX$="V"0RX$="E"0RX$="A"0RX$="J"0RX$=" 

U"ORX$="S"THEN670 :rem 193 

650 IPX$="N"ORX$="P"ORX$="X"THEN670 :rem 37 

660 GOTO620 :rein 109 

670 Y=1:IFA$="V"THENY=2 : rem 96 

680 IFA$="E"THENY=3 : rem 80 

690 IFA$="A"THENY=4 :rem 78 

700 IFA$="J"THENy=5 : rem 80 

710 IFA$="S"THENY=6 :rem 91 

720 IFA$="U"THENY=7 :rem 95 

730 IFA$="N"THENY=8 : rem 90 

740 IFA$="P"THENY=9 : rem 94 

750 IFA$="X"THENY=10 :rem 143 

760 Y=(Y*40)+484+S :rem 180 

770 POKEMC+0 , I POKEMC+5 ,15: POKEMC+6 ,15: POKEMC+24 , 1 

5:POKEVC+32,2 :rem 247 

780 FORZ=1TO4:POKEMC+1,10:POKEMC+4,17 :rem 243 

790 FORW=YTOY+30 : POKEW, PEEK ( W) +1 28 : NEXTW : F0RW=1 TOl 

0:NEXTW :rem 7 

800 POKEMC+1 ,15: PORW=YTOY+30 : POKEW, PEEK ( W) -128: NEX 

TW:P0KEMC+4,16:NEXTZ :rem 236 

810 POKEMC+24,0:POKEVC+32,6:S%=S%-l:GOTO900:rem 10 
820 POKEMC+0 , : POKEMC+5 ,15: POKEMC+6 ,15: POKEMC+1 , : 

POKEMC+24, 15 :rem 180 

830 FORW=4T015 :POKEVC+33 ,W:P0KEMC+1 ,W*2 :P0KEMC+4, 1 

7:FORZ=1TO60:NEXTZ :rem 78 

840 POKEMC+4, 16: NEXTW: POKEMC+24, :rem 3 

850 S%=S%+10:QC=QC+1 :rem 81 

900 X=X+1:IFX<=NQTHEN305 :rem 226 

910 PRINTCHR$(147);"{BLK}{2 D0WN}{15 SPACES }{ RVS } G 

AME OVER I {OFF}" J rem 97 

920 PRINT" {3 DOWN} {7 SPACES}* QUESTIONS =";QA 

:rem 151 
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930 PRINT" {down} {7 SPACES}* C0RRECT{3 SPACES}=";QC LJ 

;reni 191 , , 

940 IFQA=0THENQA=1 :rem 90 ^ 

950 X=INT( (QC*100)/QA) :rem 208 ij 

960 PRINT" {down} {7 SPACES}% C0RRECT{3 SPACES}=";X; 

"{LEFT}%" :rem 201 

970 PRINT" {3 DOWN} {9 SPACES}SCORE ="S% : rem 213 
980 PRINT" {3 DOWN} {7 SPACES} PLAY AGAIN? ({RVS}Y LJ 

{off} or {rVS}n{OPF})" :rem 91 

990 GETX$:IFX$=""THEN990 :rem 149 ^ 

1000 IFX$="Y"THEN200 : rem 103 ^ 

1010 IPX$<>"N"THEN940 :rem 165 

1020 PRINTCHR$(147) :END : rem 79 

2000 DATA"THE SECOND- SMALLEST KNOWN PLANET, ITS 

{3 SPACES} DIAMETER IS 3100 MILES", M : rem 90 LJ 
2010 DATA "IT MOVES AROUND THE SUN AT 30 MILES PER 

{ SPACE} SECOND ",M :rem 118 ^ 

2020 DATA"IT CIRCLES THE SUN EVERY 88 'EARTH' |^ 

{5 SPACES} DAYS ",M :rem 2 

2030 DATA "IT TAKES 59 'EARTH' DAYS TO TURN ONCE ON 

ITS AXIS",M :rem 229 

2040 DATA"ITS SUN SIDE IS 800 DEGREES FAHRENHEIT", LJ 

M :rem 185 

2050 DATA"THE SIDE AWAY FROM THE SUN MAY BE ABOUT ^ 

{space} ROOM TEMPERATURE ", M : rem 85 . 

2060 DATA" IT MAY HAVE A THIN ATMOSPHERE OF 

{8 SPACES} HYDROGEN AND HELIUM", M : rem 63 ^ 

2070 DATA" IT HAS A PERMANENT MAGNETIC FIELD 

{7 SPACES} DESPITE ITS SLOW ROTATION" ,M: rem 99 L^ 
2080 DATA" IT IS APPROXIMATELY 36 MILLION MILES 

{4 SPACES} FROM THE SUN",M irem 203 

2090 DATA"IT IS THE NEAREST PLANET TO THE SUN",M 

:rem 12 ^ 
2100 DATA" IT IS USUALLY THE 2ND PLANET FROM THE 

{3 SPACES }SUN",V :rem 127 

2110 DATA" ITS APPROXIMATE DISTANCE FROM THE SUN IS ^ 

67 MILLION MILES ",V :rem 203 

2120 DATA"ONCE EVERY 19 MONTHS, IT IS THE NEAREST LJ 

{space} PLANET TO THE SUN",V :rem 46 

2130 DATA"EXCEPT FOR THE SUN AND OUR MOON, IT IS ^ 

{2 SPACES} THE SKY'S BRIGHTEST OBJECT",V Q 

:rem 73 

2140 DATA" ITS BRIGHTNESS IS CAUSED BY ITS THICK, 

{2 SPACES}WHITE CLOUD COVER", V :rem 130 

2150 DATA" ITS ATMOSPHERE IS PROBABLY COMPOSED OF LJ 

{2 SPACES} SULPHURIC ACID",V :rem 70 

2160 DATA" ITS SURFACE TEMPERATURE IS 600 DEGREES LJ 

{2 SPACES} FAHRENHEIT ",V : rem 255 ■ 

2170 DATA" ITS CARBON DIOXIDE ATMOSPHERE IS 100 ^ 

{4 SPACES }TIMES EARTH'S PRESSURE", V irem 99 (_j 

130 ^ 
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DATA" ITS DAY IS 117.4 'EARTH' DAYS, AND ITS 
{2 SPACES}YEAR IS 225 DAYS",V :reni 137 

DATA"IT HAS HIGH ALTITUDE WINDS OF 200 M.P.H" 
,V :reni 142 

DATA"THE 5TH LARGEST PLANET, ITS DIAMETER IS 
{SPACE} ALMOST 8,000 MILES ",E : rem 92 

DATA" ITS CORE IS PROBABLY A SOLID METALLIC 
{3 SPACES }AND MAGNETIC SUBSTANCE", E : rem 110 
DATA"EVERY 200 FEET BELOW ITS SURFACE, THE 
{3 SPACES} TEMPERATURE RISES 1 DEGREE ", E : rem 6 
DATA" ITS ATMOSPHERE CONSISTS OF OXYGEN, 
{6 SPACES} HYDROGEN AND ARGON ",E :rem 57 

DATA" ITS ATMOSPHERE EXTENDS 300,000 FEET 
{5 SPACES} ABOVE THE PLANET'S SURFACE ",E 

:rem 162 

DATA"THE AVERAGE DAY IS 23 HOURS, 56 MINUTES 
{SPACE}0F 'earth' TIME",E :rera 38 

DATA"ONE OF ITS OCEANS COVERS MORE THAN 125% 
{SPACE}0F ITS LAND MASS",E :rem 126 

DATA" ITS MOST PREVALENT LIFE FORM IS INSECT", 
E :rem 52 

DATA" IT IS THE THIRD PLANET FROM THE SUN",E 

:rem 255 

DATA"WATER VAPOR ACCOUNTS FOR UP TO 4% OF ITS 
ATMOSPHERIC VOLUME ",E :rem 43 

DATA" IT IS THE 4TH PLANET FROM THE SUN, AND 
{2 spaces} THE 1ST PLANET BEYOND EARTH", A 

:rem 250 

DATA"ITS YEAR IS 687 'EARTH' DAYS LONG", A 

:rem 22 

DATA" ITS DIAMETER IS 4,200 MILES", A :rem 213 
DATA"ITS DAY IS 24 HOURS AND 37 MINUTES LONG 
{space} IN 'EARTH' TIME", A : rem 14 

DATA" ITS APPROXIMATE DISTANCE FROM THE SUN IS 
141 MILLION MILES", A : rem 228 

DATA"ITS CARBON DIOXIDE ATMOSPHERE IS 1-2% 
{3 SPACES}THE PRESSURE OF EARTH'S", A : rem 102 
DATA"MOST OF ITS SURFACE IS A DESERT OF 
{6 SPACES} REDDISH SAND AND ROCK", A :rem 203 
DATA"ITS MYSTERIOUS 'CANALS' MAY BE GIANT 
{4 SPACES} CANYONS", A : rem 167 

DATA" IT HAS TWO MOONS — DEIMOS AND PHOBOS",A 

: rem 80 

DATA" IT HAS A VOLCANIC SURFACE BUT WAS ONCE 
{2 SPACES} PROBABLY COVERED WITH WATER", A 

:rem 200 

DATA" ITS 88, 000-MILE DIAMETER MAKES IT THE 
{3 SPACES} LARGEST KNOWN PLANET", J :rem 167 
DATA"ONE OF ITS DAYS IS ONLY 10 'EARTH' HOURS 
LONG", J srera 245 

131 
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2420 DATA" ITS APPROXIMATE DISTANCE FROM THE SUN IS LJ 

480 MILLION MILES", J :rem 242 

2430 DATA" ITS YEAR IS NEARLY 12 'EARTH' YEARS LJ 

{5 SPACES} LONG", J srem 254 

2440 DATA"NO KNOWN LIFE FORM COULD SURVIVE ITS 

{4 SPACES} ATMOSPHERE OF METHANE", J :rem 70 
2450 DATA"IT IS COVERED WITH CLOUDS OF AMMONIA ICE 

CRYSTALS", J :rem 195 LJ 

2460 DATA" IT MAY BE A GASEOUS PLTVNET WITH NO SOLID 

CORE", J :rem 68 LJ 

2470 DATA"IT HAS AT LEAST 16 MOONS, 4 OF WHICH ARE 

ALMOST MERCURY'S SIZE", J :reni 7 ^ 

2480 DATA" ITS MASS IS DOUBLE THAT OF ALL THE OTHER <, 

PLANETS COMBINED", J :reni 119 

2490 DATA" ITS MOST FAMOUS MOONS ARE 10 AND ^ 

{8 SPACES} GANYMEDE", J :rem 186 

2500 DATA"IT IS LOCATED 1.8 BILLION MILES FROM THE LJ 

SUN",U 

2510 DATA"ITS YEAR IS 84 'EARTH' YEARS LONG",U ^ 

rrem 70 

2520 DATA"ITS DAY IS 15.5 'EARTH' HOURS LONG",U 

irem 94 \ ; 

2530 DATA" ITS DIAMETER IS 32,000 MILES ",U :rem 27 

2540 DATA"IT WAS DISCOVERED IN 1781 BY SIR WILLIAM LJ 

HERSCHEL",U :reni 104 

2550 DATA"ITS NORTH POLE IS TILTED 98 DEGREES OFF ^ 

{space} A PERPENDICULAR ORBIT ",U : rem 146 

2560 DATA"IT HAS AT LEAST FIVE MOONS AND EIGHT 

{4 SPACES}RINGS ALONG ITS EQUATOR", U : rem 50 
2570 DATA"ITS SURFACE IS PROBABLY ROCKY WITH AN 

{3 SPACES} ICY CRUST", U : rem 102 LJ 

2580 DATA" ITS EXTREME TILT CAUSES 'SUMMER' TO BE 

{2 SPACES} 42 'EARTH' YEARS LONG",U rrem 230 LJ 
2590 DATA"ITS WAS THE FIRST PLANET DISCOVERED 

{5 SPACES} AFTER BODE'S THEORY", U : rem 128 

2600 DATA"IT IS 900 MILLION MILES FROM THE SUN — 

{2 SPACES}TWICE JUPITER'S DISTANCE", S: rem 206 
2610 DATA"ITS EQUATORIAL DIAMETER IS 71,000 MILES" UJ 

,S trem 18 

2620 DATA"ITS DAY IS 10 'EARTH' HOURS LONG",S LJ 

:rem 245 

2630 DATA" ITS ATMOSPHERE AND SURFACE RESEMBLE A 

{3 SPACES }COLDER VERSION OF JUPITER", S ,i 

:rem 147 

2640 DATA"OF ITS KNOWN 16 MOONS, SIX WERE [_j 
{9 SPACES} DISCOVERED AFTER 1979", S :rem 53 

2650 DATA"ITS RINGS ARE 170,000 MILES IN DIAMETER" LJ 
,S :rem 165 

2660 DATA"THE THICKNESS OF ITS RINGS IS ONLY 10 ^ 
{3 SPACES} MILES ",S irem 249 Q 
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2670 DATA" ITS RINGS ARE COMPOSED OF MATERIAL THAT 

{ SPACE iMAY BE A SHATTERED MOON",S : rem 242 
2680 DATA" ITS YEAR IS 29.5 'EARTH' YEARS LONG",S 

:rein 174 

2690 DATA" ITS MOON TITAN IS UNIQUE BECAUSE IT HAS 

{SPACEIaN ATMOSPHERE", S :rem 194 

2700 DATA" IT IS USUALLY CLOSER TO THE SUN THAN 

{4 SPACES} PLUTO ",N :rem 10 

2710 DATA"UNTIL 1989, IT WILL BE FARTHEST FROM THE 

SUN OF THE KNOWN PLANET S",N :rem 23 

2720 DATA"ITS DISTANCE PROM THE SUN IS ABOUT 2.8 

{2 SPACES} BILLION MILES ",N :rem 27 

2730 DATA"ITS YEAR IS 165 'EARTH' YEARS LONG",N 

:rem 115 

2740 DATA "IT HAS AT LEAST 3 MOONS, THE LARGEST OF 
{ SPACE }WHICH IS TRITON", N :rera 142 

2750 DATA"LIKE JUPITER, IT MAY PRODUCE HEAT 

{7 SPACES} INDEPENDENTLY OF THE SUN",N :rem 17 

2760 DATA" ITS INCREASE IN BRIGHTNESS MAY HINT HUGE 
SURFACE STORMS ",N : rem, 165 

2770 DATA"ITS DIAMETER IS ABOUT 30,000 MILES", N 

:rem 147 

2780 DATA"IT HAS A DAY OF 16 'EARTH' HOURS", N 

:rera 144 

2790 DATA"ASTRONOMERS FOUND IT AFTER LOOKING LESS 

{SPACE}THAN 30 MINUTES", N :rem 143 

2800 DATA"IT IS USUALLY ABOUT 5,900 BILLION MILES 

{space} FROM THE SUN",P :rem 15 

2810 DATA"ITS ERRATIC ORBIT MAY BRING IT CLOSER 

{3 SPACES} TO THE SUN THAN NEPTUNE ",P : rem 161 
2820 DATA" IT TAKES 247.7 'EARTH' YEARS TO CIRCLE 

{2 SPACES }THE SUN",P :rem 47 

2830 DATA" ITS DAY IS 6.4 'EARTH' DAYS LONG",P 

:rem 204 

2840 DATA" USING MATHEMATICAL COMPUTATION, IT WAS 

{2 SPACES} DISCOVERED IN 1930 ",P :rem 235 

2850 DATA" IT HAS AT LEAST ONE MOON, CHARON", P 

:rem 50 

2860 DATA" ITS DIAMETER IS ABOUT 1,500 MILES", P 

srem 104 

2870 DATA" IT WAS DISCOVERED BY AMERICAN CLYDE 

{5 SPACES }TOMBAUGH",P :rem 190 

2880 DATA"IT MAY HAVE ONCE BEEN A MOON OF NEPTUNE" 

,P :rera 193 

2890 DATA" IT TAKES SUNLIGHT 5.5 HOURS TO REACH 

{4 SPACES} THIS PLANET ",P :rem 91 

2900 DATA"CLYDE TOMBAUGH WAS LOOKING FOR THIS 

{5 SPACES} PLANET WHEN HE POUND PLUTO ",X 

:rem 37 
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2910 DATA"ITS MASS IS ESTIMATED AT 286 TIMES THAT LJ 

{SPACE}0F EARTH", X :rem 255 

2920 DATA" ITS YEAR IS ABOUT 464 'EARTH' YEARS ",X *-J 

:rein 203 

2930 DATA"BODE'S LAW ESTIMATES IT IS 7,172 MILLION 

MILES FROM THE SUN",X : rem 166 ^ 

2940 DATA"IT HAS A FAMILY OF 16 COMETS", X : rem 244 
2950 DATA"ITS ORBIT IS ESTIMATED TO BE 120 DEGREES LJ 

OFF PERPENDICULAR", X irem 195 

2960 DATA"ITS MASS IS THREE TIMES THAT OF SATURN", ^ 

X :rem 16 

2970 DATA" IT LIES IN THE SAME GENERAL DIRECTION AS 

CASSIOPEIA", X :rem 48 

2980 DATA"IT HAS NEVER BEEN SEEN WITH THE NAKED 

{3 SPACES} EYE, OR WITH A TELESCOPE ",X : rem 68 LJ 
2990 DATA" IT MADE NEPTUNE AND URANUS DEVIATE FROM 

{SPACEItHEIR CALCULATED ORBITS", X :rera 145 LJ 
8000 POKEVC+0 , 160 : POKEVC+1 , : Z=9 : POKEVC+16 , 

:rem 98 

8010 POKEVC+23,0:POKEVC+27,0:POKEVC+28,0 : rem 98 
8020 POKEVC+29,1:POKEVC+39,7:POKE2040,13 :rem 64 
8030 POKEMC+5,79:POKEMC+6,129:POKEMC+0,0:POKEMC+1, 

1 :rem 10 

8040 POKEMC+24,15:POKEVC+21,l :rem 155 LJ 

8050 FORX=0TO2 6 :Z=Z+9: POKEVC+1, Z :rem 247 

8060 Y=INT(NT%(X,0)/256) :P0KEMC+1,Y : rem 18 W 

8070 POKEMC+0,NT%(X,0)-(Y*256) :POKEMC+4,17:rem 107 
8080 FORY=1TONT%(X,1)*70:NEXTY:POKEMC+4,16 :rem 60 
8090 FORY=1TO20:NEXTY,X :rem 218 ij 

8100 POKEVC+21,0:POKEMC+24,0 :rem 97 

8110 RETURN :rem 170 LJ 

9000 DATA"$SPECIAL" : rem 76 

9010 DATA1204, 4,0, .5,1607,4,2025,4,1607,4,1351,2,1 LJ 

607,2,1607,1,1351,1 :rem 85 

9020 DATA1607, 1,1351, 1,1607, 2, 1607, 2, 1351, 1,1204, 2 ^ 

,0,2,1204,4,1607,4,2025,4 :rem 115 ^, 

9030 DATA1607, 4, 2408, 2, 2025, 2, 2025, 1,1607, 1,1804,1 

,1570,1,1607,8 :rem 114 ^ 

9100 DATA128, 248, 8, 67, 254, 16, 39, 255, 32, 15, 255, 128, 

31,255,192,63,255,224,63,255 :rem 80 LJ 

9110 DATA224, 120, 112, 240, 124, 249, 240, 255, 223, 248, 2 

55,223,248,255,143,248 jrem 14 ^ 

9120 DATA251, 254, 248, 121, 252, 240, 126, 115, 240, 63, 14 ^ 

3,224,31,255,192,15 :rem 111 

9130 DATA255, 128, 39, 255, 32, 67, 254, 16, 128, 248, 8,0 

:rem 127 
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Other Earth 



Skill area: Social Studies 
Level: 4 
Equipment required: None 
Modification: Yes 

^ Exploring the World 

(—) "Mother Earth" is actually two games — one a question-aiid- 

answer game concerning the world's major countries, and the 
^ other a similar game concerning coxmtries that are not as promi- 
r*) nent in world adff airs . More than 120 countries are represented in 
Mother Earth, but geography buffs will note that other smaller 
countries (many of them possessions of Great Britain) are not 
)— ) mentioned in the game. If you want to include other countries, 
you should refer to the Programmer's Notes. 

Typing Mottier Earth 

Mother Earth has been divided into three separate programs. All 
r~! three programs can be merged to make one very large program 
and will function as one program with all the countries. The sec- 
ond option for entering it is to create two separate programs. 

To create two separate programs, first type in and SJ^^/E Pro- 
gram 1, the Main Listing. The Main listing will be used with both 
' * sets of data programs. Once Program 1 has been S^VEd to disk or 
O tape, LOAD it back into memory. Then type in Program 2 and 

SiWE the whole program (Programs 1 and 2) to disk or tape. If all 
goes well you will have a complete working version of Mother 
Earth which includes only the countries listed in group 1. 

To create the second version of Mother Earth, containing the 
information about the other group, simply reLOAD Program 1 
r*i and add to it Program 3. Once you have Program 1 and Program 3 
^ together in memory, SAVE it to disk or tape. 

^ How to Play 

After loading Mother Earth 1 or Mother Earth 2 into the com- 
puter, youH be asked to choose the area of the world you wish to 
^ cover. These include: 

A Europe 

^ B North Africa and the Middle East 

n 
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C Africa 

D Asia and the Pacific 
E Western Hemisphere 

Questions will be asked about the countries in the area you 
choose. Points are given depending on how fast you identify a 
country from the clues given. 

YouH be asked up to five questions about each country. Iden- 
tify the country by typing in the name. Because these names 
must be spelled correctly for the computer to count the answers 
correct, the spellings appear alphabetically, by game, below: 

Mother Earth 1 



Afghanistan 


Germany 


Lebanon 


Spain 


Argentina 


Ghana 


Liberia 


Sudan 


Australia 


Great Britain 


Libya 


Sweden 


Austria 


Greece 


Mexico 


Switzerland 


Brazil 


India 


Namibia 


Syria 


Cambodia 


Iran 


Norway 


Taiwan 


Canada 


Iraq 


Pakistan 


Turkey 


Chile 


Ireland 


Panama 


Uganda 


China 


Israel 


Paraguay 


United States 


Cuba 


Italy 


Peru 


Uruguay 


Denmark 


Ivory Coast 


Saudi Arabia 


USSR 


Egypt 


Japan 


Scotland 


Venezuela 


Ethiopia 


Jordan 


Senegal 


Vietnam 


Finland 


Kenya 


South Africa 


Zimbabwe 


France 


Korea 







Mother Earth 2 



Albania 


Congo 


Honduras 


Algeria 


Costa Rica 


Hungary 


Angola 


Cyprus 


Iceland 


Bahamas 


Czechoslovakia 


Indonesia 


Bangladesh 


Dominican Republic 


Jamaica 


Belgium 


Ecuador 


Kuwait 


Benin 


El Salvador 


Lesotho 


Bolivia 


Gabon 


Luxembourg 


Botswana 


The Gambia 


Madagascar 


Bulgaria 


Guatemala 


Mauritania 


Burma 


The Guianas 


Morocco 


Cameroon 


Guinea 


Mozambique 


Colombia 


Haiti 


The Netherlands 
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New Zealand 

Nicaragua 

Oman 

Philippines 

Poland 

Portugal 

Puerto Rico 

Qatar 



Sri Lanka 
Tanzania 
Thailand 
Togo 



Rumania 
Sierra Leone 
Somalia 
South Yemen 



Tunisia 

U. Arab Emirates 

Yemen 

Yugoslavia 

Zaire 

Zambia 



The countries represented in Mother Earth 1 and Mother 
Earth 2 are divided according to the relative importance of the 
country in the geographical section of the world where it is located. You 
may argue that Guatemala or Poland isn't in the same class as 
Togo or South Yemen, but the former countries occupy the same 
relative status in the Western Hemisphere and Europe as the lat- 
ter countries do in Africa and the Middle East. 

If a question is asked that you don't know the answer to, you 
should make a guess or press the RETURN key. Up to five ques- 
tions will be asked randomly about each country; one of the five 
questions will alwa)^ be the countr/s capital or capitals. The last 
question will always be a mtdtiple-choice question. 

You can quit playing at any time by typing END and pressing 
RETURN. Your percentage score will not be a&ected if you quit 
before all questions have been asked. 

Scoring 

Points will be awarded as foUows: 

If the question is answered after 1 clue, 5 points. 

If the question is answered after 2 clues, 4 points. 

If the question is answered after 3 clues, 3 points. 

If the question is answered after 4 clues, 2 points. 

If the question is answered after 5 clues, 1 point. 

If the computer has to answer the question for you, - 5 points. 

At the end of the game, a nvmierical score will be shown. A 
percentage score will also be given to let you know the grade you 
earned. You will then be asked if you want to play again. 

Program 1. Mother Earth - Main Listing 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the-'Automatic Proofreader" in 
Appendix E. 
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1 REM MOTHER EARTH :rem 88 

100 CB=828:MP=1017 :reni 210 

110 VC=53248:MC=54272 irem 121 

120 POKEVC+32,9:POKEVC+33,12 :rem 114 

130 PRINTCHR$ ( 147 ) :reni 15 

140 DIM QT$(29,4),NT%(37,2) :rem 96 

150 READX$:IPX$<>"$SONG"THEN150 :rein 81 

160 FORX=0TO37:FORY=0TO2:READZ :rem 188 

170 NT%(X,Y)=Z:NEXTY,X :rem 122 

200 GOSUB700 :rein 169 

205 GOSUB1000 : S%=0 : P0RX=1T0NE : POKECB+X, :NEXTX 

:rem 178 

210 FORX=lTONEiGOSUB800:POKECB+Z,X:NEXTX :rein 144 
300 X=l :rem 89 

310 Y=PEEK(CB+X)-1 :rem 6 

340 FORW=0TO3:RS(W)=0:NEXTW trem 220 

350 F0RW=1T04 : rem 27 

360 V=INT(RND(1)*4) :IFRS(V)<>0THEN360 trem 179 

370 RS(V)=W:NEXTW :rem 74 

400 W=0 :rem 88 

410 PRINTCHR$(147);"{BLK}{23 DOWN} "; SPC( 15 ); "SCORE 
=";S%; :rem 164 

415 PRINT" {HOME} {3 DOWN} {3 SPACES} QUESTION #";W+1 

:rem 58 

420 X$=QT$(Y,RS(W)-1) :rem 153 

430 PRINT"{3 D0WN}";X$;".{3 DOWN}" :rem 50 

440 GOSUB900:IFX$="Q"THEN500 :rem 12 

445 IFX$="END"THEN600 :rem 197 

450 W=W+1 : IFW<=3THEN410 trem 112 

460 W=4:GOSUB2000 trem 222 

470 IFX$="Q"THEN500 trem 188 

475 IFX$="END"THEN600 trem 200 

480 PRINT"{WHT}{3 D0WN}{3 SPACES }";QT$(Y, 4) tS%=S%- 
5 trem 124 

490 FORW=lTO2500fNEXTW trem 131 

495 GOTO580 trem 120 

500 REM ***** CORRECT ANSWER ***** trem 255 

510 S%=S%+(5-W) :rem 248 

520 POKEMC+0 , 1 POKEMC+1 , t POKEMC+5 , 1 5 t POKEMC+6 , 1 5 

trem 149 

530 POKEMC+24,15tRP=10tFORV=6TO12 trem 228 

540 POKEVC+3 3, Vt POKEMC+1, RPtPOKEMC+4, 17 trem 131 
550 FORDR=lTO50tNEXTDRtPOKEMC+4,16 trem 135 

560 RP=RP+10tNEXTV trem 119 

570 POKEMC+24,0 :rem 72 

580 X=X+ltIFX<=NETHEN310 trem 214 

600 PRINT" {BLK}{CLR} {DOWN} {15 SPACES} {RVS} TEST OVE 
R1{0FP}" :rem 220 

610 PRINT" {3 DOWN} {4 SPACES}Y0UR SCORE = ";S% 

trem 86 
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620 IFS%<0THENS%=0 : rem 31 

r*\ 625 X=X-1:IFX<1THENX=1 :rem 107 

630 X=INT((S%*100)/(X*5)) : rem 37 

(— ) 640 PRINT" {down} {4 SPACES} YOUR GRADE = ";X;"{LEFT} 

%" ;rem 63 

O 650 PRINT"{3 DOWN] PLAY AGAIN?" : PRINT" {DOWN} ENTER 

{RVS}y{0FF} OR {RVS}n{OFF}" :rem 158 

(I 660 GETX$:IFX$=""THEN660 :rem 137 

670 IFX$="Y"THEN205 :rem 72 

680 IFX$<>"N"THEN660 :rem 128 

r*) 690 GOSUB1500:PRINTCHR$(147) !END : rem 171 

700 PRINTCHR$ ( 147 ): PRINT "{BLK} {RVS} {14 SPACES}M0TH 
O ER EARTH{14 spaces} {off}"; :rem 207 

705 PRINT" {2 DOWNIYOU WILL BE ASKED UP TO 5 QUESTI 
ONS" :rem 251 

706 PRINT "ABOUT SELECTED NATIONS OF THE EARTH." 

' ' :rem 102 

(— ^ 710 PRINT" {2 down} POINTS WILL BE GIVEN DEPENDING U 

PON HOW MANY QUESTIONS YOU NEED:" I rem 177 

r*^ 715 PRINT" {2 DOWN} {3 SPACES}1 QUESTI0N{2 SPACES}= 

{2 SPACES } 5. ": PRINT" {3 SPACES} 2 QUESTIONS = 
^ {2 SPACESH." :rem 128 

720 PRINT" {3 SPACES} 3 QUESTIONS ={2 SPACES} 3." 
' :rem 6 

f-^ 730 PRINT" {3 SPACES} 4 QUESTIONS ={2 SPACES} 2 .": PRI 

NT" {3 SPACES} 5 QUESTIONS ={2 SPACES }1." 

:rem 174 

740 PRINT" {down} {3 SPACES}ALL MISSED{2 SPACES}= -5 
r~) ." :rem 232 

750 PRINT" {2 D0WN}TYPE {RVS}END{0PF} TO STOP THE G 
AME EARLY." :rem 219 

760 GOSUB1500 :rem 227 

785 PRINT" {2 DOWN} {8 SPACES} (PRESS ANY KEY TO STAR 
) T)"; :rem 178 

790 GETX$iIFX$=""THEN790 : rem 145 

795 RETURN : rem 133 

800 W=0 srem 92 

810 Z=INT( (RND(1)*NE)+1) :IPPEEK(CB+Z)=0THENRETURN 
^ :rem 1 

820 W=W+1:IFW<9THEN810 :rem 62 

m 830 2i=l :rem 99 

840 IFPEEK(CB+Z)=0THENRETURN : rem 39 

O 850 Z=Z+1 :GOTO840 : rem 249 

900 X$="":POKE198,0: INPUT" " ;X$ : IFX$=QT$ (Y, 4)THENX 
$="Q". RETURN srem 46 

^ 905 IFxf="END"THENRETURN :rem 16 

910 REM ** INCORRECT ANSWER ** :rem 159 

r*^ 920 IFW<>4THENPOKEVC+33,0 : rem 19 

930 POKEMC+0,49:POKEMC+1,14 :rem 53 
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950 POKEMC+24,15 :rem 128 

960 PORV=lTO100iNEXTV:POKEMC+4,16 : rem 56 

965 IFW<>4THENPRINTCHR$(147) :rein 226 

970 POKEMC+24,0:POKEVC+33,12 :rem 110 

980 RETURN srem 129 

1000 PRINTCHR$(147);"{3 DOWN} ENTER DESIRED CATEGO 
RY:{2 DOWN}": PRINT" {3 SPACES} {RVS}a{ OFF} EURO 
PE" :rem 230 

1010 PRINT" {DOWN} {3 SPACES }{ RVS } B { OFF } NORTH AFRIC 
A / MIDDLE EAST": PRINT" {DOWN} {3 SPACES }{ RVS } C 
{OFF} AFRICA" :rein 111 

1020 PRINT" {down} {3 SPACES} {RVS }d{ OFF} ASIA / THE 
{ SPACE } PACIFIC " : PRINT " { DOWN } { 3 SPACES } { RVS } E 
{off} WESTERN HEMISPHERE" : rem 193 

1050 GETX$:IFX$=""THEN1050 :rem 221 

1060 IFX$<"A"ORX?>"E"THEN1050 :rem 108 

1065 PRINT" {2 DOWN} {4 SPACES} (GAME WILL START IN T 
EN SECONDS)" :rem 125 

1070 RESTORE :NE=0 :rem 38 

1080 READA$:IFA$>X$THENRETURN : rem 65 

1090 IFX$=A$THEN1130 :rem 107 

1120 FORX=1TO5:READA$:NEXTX:GOTO1080 : rem 17 

1130 FORX=0TO4 : READA? : QT $ ( NE , X ) = A$ : NEXTX : NE=NE+ 1 : G 
OTO1080 :rem 22 

1500 POKEMC+5,79:POKEMC+6,129:POKEMC+24,15:rem 191 
1510 FORX=0TO37 :rem 128 

1520 POKEMC+0,NT%(X,0) :rem 218 

1530 P0KEMC+1,NT%(X,1) : rem 221 

1540 POKEMC+4,33 :rem 122 

1550 FORy=lTONT%(X,2)*60:NEXTY : rem 76 

1560 POKEMC+4,32:FORY=1TO20:NEXTY,X :rem 190 

1570 POKEMC+24,0 : rem 121 

1580 RETURN :rem 174 

2000 MC$(0)=QT$(Y,4) :rem 7 

2010 X1=INT(RND{1)*NE) :IFX1=YTHEN2010 :rem 194 

2020 MC$(1)=QT$(X1,4) :rem 58 

2030 X2=INT(RND(1)*NE) : IFX2=X1ORX2=YTHEN2030 

:rem 185 

2040 MC$(2)=QT$(X2,4) : rem 62 

2050 FORX1=0TO2:POKEMP+X1,0:NEXTX1 :rem 145 

2060 F0RX1=1T03 :rem 124 

2070 X2=INT(RND(1)*3) :IFPEEK(MP+X2)<>0THEN2070 

:rem 194 

2080 P0KE(MP+X2),XlsNEXTXl :rem 83 

2090 PRINTCHR$(147)7"{BLK}{23 DOWN} " ; SPC( 15 ) ; "SCOR 

E =";S%; :rem 218 

2095 PRINT" {home} {3 DOWN} (3 SPACES} QUESTION # 5 

{2 DOWN}" :rem 217 

2100 PRINT" {down} {3 SPACES} MULTIPLE CHOICE:" 

:rem 246 
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^ 2110 FORX1=0TO2 :rem 118 

^ 2120 X2=PEEK(MP+X1) :reni 83 

2130 PRINT" {DOWN} {5 SPACES }"; MC$ (X2-1 ) :rem 208 
(— ) 2140 NEXTXl: PRINT "{ DOWN} ":GOSUB900: RETURN :rein 24 

9000 DATAZ, "$SONG" : rem 8 

O 9010 DATA15, 67, 2, 99, 56, 2, 15, 67, 2, 15, 67, 4, 99, 56, 1,9 
^ 9,56,2,193,44,2 :reni 200 

" 9020 DATA15, 67, 2, 99, 56, 1,15, 67, 2, 15, 67, 2, 99, 56, 2, 9 
9,56,2,165,31,1,165,31,1 :rem 118 

9030 DATA60, 50, 2, 165, 31, 1,62, 42, 2, 62, 42, 1,165, 31,1 
,15,67,2 srem 53 

9040 DATA15, 67, 2, 62, 42, 2, 15, 67, 4, 99, 56, 1,193, 44, 2, 
r~) 99,56,1,15,67,2 srem 187 

9050 DATA99, 56, 1,15, 67, 2, 15, 67, 2, 15, 67, 2, 99, 56, 2 

:rem 124 

^ 9060 DATA15, 67, 2, 15, 67, 2, 165, 31, 1,60, 50, 2, 193, 44, 4 

:rem 194 

^ Program 2. Mother Earth - DATA 1 

3000 DATAA,"THE THAMES RIVER RUNS THROUGH ITS 

{7 SPACES} CAPITAL" :rem 16 

O 3010 DATA"ITS CAPITAL IS LONDON" :rem 118 

3020 DATA" IT IS THE HOME OF STONEHENGE AND KING 

{3 SPACES} ARTHUR" srem 189 

_ 3030 DATA"IT RULES SCOTLAND, WHICH OCCUPIES 37% OF 

~ ITS MAJOR ISLAND" :rem 230 

^ 3035 DATA"GREAT BRITAIN" :rem 165 

3040 DATAA, "ONLY PART OF THIS DIVIDED COUNTRY IS 
r*) I 4 SPACES} RULED BY BRITAIN" srem 193 

3050 DATA"ITS TWO CAPITALS ARE BELFAST AND DUBLIN" 
O :rem 203 

3060 DATA"CATHOLIC AND PROTESTANT WARS DIVIDE THE 

{SPACE} COUNTRY" srem 92 

3070 DATA"THE 1846 POTATO FAMINE DECIMATED THE 

{4 SPACES} COUNTRY", IRELAND srem 35 

3080 DATAA, "VIKINGS FROM HERE MAY HAVE BEATEN 

{7 SPACES} COLUMBUS TO AMERICA" srem 194 

3090 DATA" ITS NORTH SEA PRODUCES THE WORLD'S 

{6 SPACES} BIGGEST FISH CATCH" srem 88 

3100 DATA"ONE THIRD OF THE POPULATION WORKS IN THE 
r-) LUMBER INDUSTRY" : rem 87 

3110 DATA"THE CAPITAL OF THIS SCANDINAVIAN COUNTRY 
O IS OSLO", NORWAY srem 87 

3120 DATAA, "THIS HAS THE LARGEST POPULATION OF ALL 
I* {2 SPACES }THE SCANDINAVIAN NATIONS" srem 125 

^ 3125 DATA"THE CAPITAL OF THIS NATION IS STOCKHOLM" 
' ' srem 238 

n 

O 141 




U 

■U 

3130 DATA "THE 'MIDDLE WAY' BETWEEN GOVERNMENT MSD W 

{space} PRIVATE INDUSTRY" trern 115 

3140 DATA"IjAPLAND OCCUPIES THE FAR NORTH OF THIS W 

{2 SPACES} COUNTRY", SWEDEN rrem 181 

3150 DATAA, "THIS NATION IS KNOWN FOR PINE DAIRY ^ 

{5 SPACES} PRODUCTS AND FURNITURE" srem 75 

3160 DATA"THE CAPITAL OF THIS NATION IS{ll SPACES} 

COPENHAGEN" :rem 17 

3170 DATA "GREENLAND IS HELD BY THIS COUNTRY" 

:rem 121 O 
3180 DATA"DAIRY COOPERATIVES IMPROVE THE QUALITY 

{2 SPACES }0F ITS DAIRY PRODUCTS DENMARK ^ 

:reni 3 

3230 DATAA, "ORIGINALLY, ITS PEOPLE CAME FROM ASIA" 

:rein 214 

3240 DATA"THE CAPITAL OF THIS NATION IS HELSINKI" 

:rem 143 

3250 DATA"SWEDISH IS CONSIDERED THE COUNTRY'S 

{5 SPACES} SECOND LANGUAGE" trem 74 ^ 

3260 DATA"RUSSIA TOOK MOST OF THIS COUNTRY AFTER 

[2 SPACES} WORLD WAR I I ".FINLAND srem 31 

3390 DATAA, "NAPOLEON BECAME THIS COUNTRY'S EMPEROR 
" srem 147 

3400 DATA" IT IS A CENTER OF ART, FOOD AND FASHION" 

srem 11 

3410 DATA"IT WAS THE BIRTHPLACE OF DEBUSSY AND 

{4 SPACES} LOUIS PASTEUR" srem 164 

3420 DATA"THE CAPITAL OF THIS NATION IS PARIS", FRA ^ 

NCE srem 146 

3430 DATAA, "IT WAS DIVIDED AMONG FOUR COUNTRIES 

{5 SPACES} AFTER WORLD WAR II" srem 246 

3440 DATA"THE USSR CONTROLS ONE-FOURTH OF ITS 

{5 SPACES} CITIZENS" srem 160 Lj 

3450 DATA" ITS MAJOR RIVERS ARE THE DANUBE, THE 

{4 SPACES} ODER AND THE RHINE" srem 55 ^ 

3460 DATA" ITS TWO CAPITALS ARE BONN AND EAST , : 

{6 SPACES} BERLIN ".GERMANY srem 102 ^ 

3470 DATAA, "IT IS DIVIDED INTO 22 STATES, KNOWN AS \_j 

{2 SPACES }' CANTONS ' " srem 238 

3480 DATA" ITS PEOPLE SPEAK FRENCH, GERMAN AND O 

{5 SPACES} ITALIAN" srem 199 

3490 DATA" ITS NEUTRALITY MAKES IT A CENTER OF ^ 

{5 SPACES} DIPLOMACY" srem 118 

3500 DATA"THE CAPITAL OF THIS NATION IS BERN",SWIT ^ 

ZERLAND srem 225 

3510 DATAA, "IT WAS ONCE THE CENTER OF AN EASTERN 

{4 SPACES} EUROPEAN EMPIRE" srem 58 tJ 

3520 DATA"THE GEOGRAPHY OF THE LAND IS SIMILAR TO 

{SPACE }SWITZERLAND'S" srem 101 LJ 
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3530 DATA"ADOLPH HITLER WAS BORN HERE AND LATER 

{3 spaces} DEFEATED THE COUNTRY" :rem 123 

3540 DATA"THE CAPITAL OP THIS NATION IS VIENNA", AU 

STRIA :rem 65 

3550 DATAA, "IT WAS RULER OF THE WORLD UNTIL DEFEAT 

EDBY GERMANY IN 500 A.D" : rem 243 

3560 DATA" IT WAS THE CENTER OF THE { 16, SPACES }RENAI 

SSANCE" :rem 248 

3570 DATA" ITS CITIES OF VENICE AND FLORENCE ARE 

{3 spaces} CENTERS OF ART" rrem 182 

3580 DATA"THE CAPITAL OF THIS NATION IS ROME",ITAL 

Y :rem 33 

3582 DATAA, "WESTERN CIVILIZATION DEVELOPED FROM TH 

ISNATION'S CULTURE" : rem 197 

3584 DATA"IT IS SURROUNDED BY THE MEDITERRANEAN, 

{2 SPACES }ALGEAN AND IONIC SEAS" rreni 246 

3590 DATA" POSSESSIONS OF THIS COUNTRY INCLUDE 

{5 SPACES}CRETE AND RHODES" : rem 168 

3600 DATA"THE CAPITAL OF THIS NATION IS ATHENS", GR 

EECE :rem 210 

3610 DATAA, "THE ROMANS KNEW IT AS CALEDONIA": rem 44 
3620 DATA" ITS CITY OF GLASGOW IS THE CHIEF 

{8 SPACES } INDUSTRIAL CENTER OF BRITAIN" 

:rem 53 

3630 DATA" IT OCCUPIES THE NORTHERN 37% OF THE ISLE 

OF GREAT BRITAIN" :rem 182 

3640 DATA"BRITAIN RULES IT, BUT IT MAINTAINS 

{6 SPACES} EDINBURGH AS ITS CAPITAL" :rem 206 
3645 DATA "SCOTLAND" : rem 136 

3650 DATAA, "THE 1917 REVOLUTION CHANGED ITS FORM O 

F GOVERNMENT" j rem 11 

3660 DATA"THE COUNTRY IS A LARGE PLAIN DIVIDED BY 

{SPACE} THE URAL MOUNTAINS" :rem 101 

3670 DATA"ITS MAJOR PORTS ARE ON THE SHORE OF THE 

{SPACE} BLACK SEA" : rem 178 

3680 DATA"THE CAPITAL OF THIS NATION IS MOSCOW", US 

SR :rem 145 

3970 DATAA, "IT COVERS MOST OF THE IBERIAN PENINSUL 

A, BUT HAS NO MAJOR HARBORS" : rem 137 

3980 DATA"A MOORISH PALACE, THE ALHAMBRA, RESIDES 

{SPACE} IN ITS CITY OF GRENADA" : rem 1 

3990 DATA" ITS ROCK OF GIBRALTAR IS ACTUALLY OWNED 

{SPACE}BY BRITAIN" : rem 155 

4000 DATA"THE CAPITAL OF THIS NATION IS MADRID", SP 

AIN :rem 139 

4050 DATAB, "THE BIBLICAL MOUNT ARARAT IS LOCATED I 

N THIS COUNTRY" : rem 145 

4060 DATA"IT CONTROLS THE ONLY, PASSAGE BETWEEN THE 

MEDITERRANEAN AND BLACK SEAS" : rem 102 
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4070 DATA"THOUGH IT IS MOSLEM, MOST OF ITS 

{8 SPACES iTRADITIONS ARE EUROPEAN" :rem 42 
4075 DATA"THE CAPITAL OF THIS NATION IS ANKARA", TU 

RKEY rrem 253 

4120 DATAB, "ITS LAND FORMED THE ANCIENT COUNTRY OF 

{2 SPACES} PALESTINE" : rem 176 

4130 DATA"MORE THAN 85% OF ITS POPULATION IS 

(6 SPACES} JEWISH" trem 12 

4140 DATA"WATERS FROM THE JORDAN RIVER IRRIGATE 

{3 spaces} ITS NEGEV DESERT" :reni 219 

4150 DATA"THE CAPITAL OF THIS NATION IS JERUSALEM" 

, ISRAEL :rein 205 

4160 DATAB, "THIS FORMER OTTOMAN NATION WAS RULED B 

y FRANCE UNTIL 1945" trem 149 

4170 DATA" IT LOST THE GOLAN HEIGHTS TO ISRAEL IN 

{2 SPACES} THE 'SEVEN-DAY WAR'" trem 6 

4180 DATA" IT HAS BEEN RULED BY THE SOCIALIST BAATH 

PARTY SINCE 1963" : rem 150 

4190 DATA"THE CAPITAL OF THIS NATION IS DAMASCUS", 

SYRIA :rem 66 

4200 DATAB, "IT BROKE FROM SYRIA MAINLY FOR RELIGIO 

USREASONS" :rem 221 

4210 DATA"BOTH CHRISTIANS AND MOSLEMS HAVE LEADERS 

IN THE GOVERNMENT" i rem 222 

4220 DATA" ITS LANGUAGES ARE ARABIC, FRENCH AND 

{4 SPACES} ARMENIAN" : rem 39 

4230 DATA"THE CAPITAL OF THIS NATION IS BEIRUT", LE 

BANON :rem 46 

4240 DATAB, "IT SHARES THE DEAD SEA WITH ITS ENEMY 

{3 SPACES} ISRAEL" :rem 43 

4250 DATA" IT IS HOME FOR MANY ARABS DISPLACED BY 

{2 spaces} THE CREATION OF PALESTINE" :rem 164 
4260 DATA "ITS ONLY PORT IS ON THE AQABA GULF" 

:rem 63 

4270 DATA"THE CAPITAL OF THIS NATION IS AMMAN", JOR 

DAN trem 144 

4280 DATAB, "IN ANCIENT TIMES, IT WAS CALLED BY THE 

[2 SPACES }NAME of MESOPOTAMIA" irem 127 

4290 DATA"THE TIGRIS AND EUPHRATES RIVERS MEET 

{4 SPACES} HERE" :rem 142 

4300 DATA"THE HANGING GARDENS OF BABYLON WERE 

{5 SPACES} LOCATED HERE" :rem 245 

4310 DATA"THE 'ARABIAN NIGHTS' IS SET IN ITS 

{6 SPACES} CAPITAL OF BAGHDAD" , IRAQ trem 230 
4320 DATAB, "RESIDENTS SPEAK MANY LANGUAGES, BUT TH 

E OFFICIAL TONGUE IS FARSI" trem 158 

4330 DATA"IT HAS THE WORLD'S 3RD LARGEST RESERVE 

{2 SPACES }0F CRUDE OIL" trem 103 

4340 DATA"A 1979 REVOLUTION MADE AN ISLAMIC 

{7 SPACES} LEADER ITS RULER" trem 42 
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DATA"THE CAPITAL OP THIS NATION IS TEHERAN'M 
RAN :rem 152 

DATAB,"IT OCCUPIES ABOUT 80% OF THE ARABIAN 
{4 SPACES} PENINSULA" : rem 172 

DATA "THE COUNTRY IS NAMED FOR ITS FOUNDER, 
{3 SPACES }IBN SAUD" : rem 94 

DATA"THE MOSLEM SHRINES OF MECCA AND MEDINA 
{2 SPACES} ARE HERE" irem 98 

DATA"THE CAPITAL OF THIS NATION IS RIYADH", "S 
AUDI ARABIA" :rera 134 

DATAB,"THE 1ST WORLD RULER IS TODAY AN 
{9 spaces} UNDEVELOPED COUNTRY" :rem 128 

DATA"THE MAIN POPULATION CENTERS ARE ON THE 
{2 SPACES }BANKS OF THE NILE RIVER" :rem 61 
DATA "THE ASWAN DAM AND THE SUEZ CANAL ARE 



{4 SPACES} BOTH FOUND HERE' 



:rem 90 



DATA"THE CAPITAL OF THIS NATION IS CAIRO", EGY 
PT :rem 99 

DATAB, "FORMERLY RULED BY CARTHAGE, ROME, ITAL 
Y, BRITAIN AND FRANCE" : rem 41 

DATA "THOUGH A MONARCHY IN 1952, ^T BECAME 
{4 SPACES} SOCIALIST IN 1969" :rem 139 

DATA" ITS LOW-SULPHUR OIL RESERVES ARE IN 
{5 SPACES} GREAT DEMAND" :rem 73 

DATA"THE CAPITAL OF THIS NATION IS TRIPOLI ",L 
IBYA :rem 251 

DATAC,"ITS CAPITAL CITY WAS THE CAPITAL OF 
{5 SPACES }FRENCH WEST AFRICA" :rem 198 

DATA" IT CONTAINS THE BEST SEAPORT IN WEST 
{4 SPACES} AFRICA" : rem 220 

DATA"OF THE FRENCH-SPEAKING AFRICAN NATIONS, 
{space} IT IS THE MOST DEMOCRATIC" :rem 74 

DATA"THE CAPITAL OF THIS NATION IS DAKAR", SEN 
EGAL :rem 203 

DATAC,"IT IS THE MOST PROSPEROUS OP AFRICA'S 
{3 SPACES }TR0PICAL NATIONS" :rem 78 

DATA" IT IS LOCATED BETWEEN GHANA AND LIBERIA 
{ SPACE }0N THE GULF OF GUINEA" :rem 149 

DATA"THIS PRO-WESTERN AFRICAN NATION IMPORTS 
{space} 20% OF ITS WORKERS" :rem 213 

DATA"THE CAPITAL OF THIS NATION IS ABIDJAN"," 
IVORY COAST" I rem 177 

DATAC,"ITS NAMESAKE WAS AN AFRICAN NATION THA 
T LASTED 800 YEARS" :rem 15 

DATA" IT WAS FORMERLY THE GOLD COAST, A 
{7 SPACES }BRITISH COLONY" :rem 250 

DATA" IT LEADS THE WORLD IN CACAO PRODUCTION, 
{SPACE}FR0M WHICH CHOCOLATE IS MADE" i rem 168 
DATA"THE CAPITAL OP THIS NATION IS ACCRA", GHA 
NA :rem 35 
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DATAC, "BLACK FREEDMEN FOUNDED THIS NATION IN 
{3 SPACES} 1822" trem 164 

DATA" IT IS THE OLDEST AFRICAN REPUBLIC" 

:rem 88 

DATA"THE GOVERNMENT IS SIMILAR TO THAT OF THE 
UNITED STATES" :rera 164 

DATA"THE CAPITAL OF THIS NATION IS MONROVIA", 
LIBERIA crem 203 

DATAC, "IT WAS ANCIENTLY KNOWN AS NUBIA" 

:reni 90 

DATA"THE WHITE AND BLUE NILE RIVERS CONVERGE 
{SPACE}AT the nation's capital" :rem 157 

DATA" IT IS THE LARGEST COUNTRY IN AFRICA" 

:rem 203 

DATA"THE CAPITAL OF THIS NATION IS KHARTOUM", 
SUDAN :rem 82 

DATAC, "IT WAS ANCIENTLY CALLED ABYSSINIA" 

:rein 13 

DATA" ITS LANGUAGE, AMHARIC, IS UNIQUE AND 
{4 SPACES} COMPLEX" : rem 7 

DATA" EXCEPT FOR SIX YEARS, IT HAS NEVER BEEN 
{space} RULED BY A FOREIGN POWER" :rem 127 

DATA"THE CAPITAL OF THIS NATION IS ADDIS 
{5 SPACES} ABABA", ETHIOPIA :rem 102 

DATAC, "TOURISTS HUNTING BIG GAME BUILT ITS 
{5 SPACES }LARGE TOURIST INDUSTRY" trem 203 
DATA"THE NILE'S SOURCE IS FOUND BETWEEN THIS 
{space} NAT I ON AND UGANDA" :rem 42 

DATA" IT WON INDEPENDENCE AFTER THE MAU MAU 
{3 SPACES }UPRISING" :rein 165 

DATA"THE CAPITAL OF THIS NATION IS NAIROBI ",K 



ENYA 

DATAC, "BILHARZIASIS 



;rem 226 

IS A COMMON DISEASE DUE T 
THE LARGE AMOUNTS OF WATER" : rem 210 

DATA" IT IS BORDERED BY LAKES VICTORIA, EDWARD 
AND ALBERT" :rem 139 

DATA"IDI AMIN EXPELLED 45,000 UNDESIRABLES 
{3 SPACES }FR0M HERE IN 1972" :rem 230 

DATA"THE CAPITAL OF THIS NATION IS KAMPALA", U 
GANDA :rem 21 

DATAC, "THOUGH MAINLY BLACK, IT ONLY RECENTLY 
{3 SPACES} GOT A BLACK GOVERNMENT" : rem 143 
DATA" ITS MAIN GEOGRAPHIC FEATURE IS VICTORIA 



{space} FALLS" 



:rem 150 



DATA" IT BECAME THE 154TH UNITED NATIONS 



{6 SPACES }MEMBER IN 1980" 



:rem 133 



DATA"THE CAPITAL OP THIS NATION IS SALISBURY" 



, ZIMBABWE 



:rem 123 



DATAC, "ITS OFFICIAL TONGUES ARE ENGLISH AND 



{4 SPACES} AFRIKAANS" 



:rem 57 
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DATA" IT'S THE WORLD LEADER IN DIAMOND, GOLD 
{2 SPACES} AND URANIUM PRODUCTION" zrem 65 

DATA"APARTHEID SUBJUGATES ITS BLACK MAJORITY 
{ SPACE }T0 the white MINORITY" trem 247 

DATA" ITS CAPITAL CITIES ARE CAPE TOWN AND 
{4 SPACES }BL0EMF0NTEIN", "SOUTH AFRICA": rem 19 
DATAC,"IT WAS FORMERLY CALLED SOUTH-WEST 
{7 SPACES} AFRICA" : rem 217 

DATA"THE U.N. SEPARATED IT FROM SOUTH AFRICA 
ISPACE}T0 FREE IT FROM APARTHEID" :rem 208 
DATA" IT HAS BEEN WITHOUT AN OFFICIAL FORM OF 
{space} GOVERNMENT SINCE 1968" :rem 209 

DATA"THE CAPITAL OF THIS NATION IS WINDHOEK", 
NAMIBIA :rem 174 

DATAD, "IT'S THE 2ND LARGEST NATION IN THE 
{6 SPACES} WORLD, BASED ON POPULATION" :rem 98 
DATA" IT IS THE LARGEST DEMOCRATIC COUNTRY IN 
{SPACE}THE ORIENT" :rem 173 

DATA"THE TAJ MAHAL IS FOUND WITHIN THIS 
{6 SPACES}F0RMER BRITISH POSSESSION" :rem 102 
DATA"THE CAPITAL OF THIS NATION IS NEW DELHI" 
, INDIA :rem 29 

DATAD, "IT WAS FOUNDED AS A RELIGIOUS HAVEN FO 
R MOSLEMS" :rem 37 

DATA "IT WAS FAMOUS FOR THE INDUS VALLEY 
{6 SPACES }CIVILIZATION" :rem 40 

DATA" ITS FORMER EASTERN TERRITORY IS NOW 
{5 SPACES} BANGLADESH" :rem 35 

DATA"THE CAPITAL OF THIS NATION IS ISLAMABAD" 
, PAKISTAN :rem 64 

DATAD, "IT WAS CALLED 'THE HERMIT KINGDOM' DUE 
{2 SPACES }T0 ITS UNFRIENDLINESS" :rem 94 

DATA" IT WAS FORMERLY CALLED ARIANA, BACTRIA 
[2 SPACES }AND KHORASAN" :rem 188 

DATA "IT'S SURROUNDED BY IRAN, PAKISTAN AND 
{3 SPACES }THE USSR" :rem 151 

DATA"THE CAPITAL OF THIS NATION IS KABUL", APG 
HANISTAN :rem 249 

DATAD, "20% OF THE WORLD'S PEOPLE — MORE THAN A 
{2 SPACES} BILLION — LIVE HERE" :rem 14 

DATA"THE GREAT WALL WAS BUILT HERE TO PROTECT 
FARMERS FROM INVADERS" :rem 162 

DATA"THE YANGTZE RIVER WAS THE CENTER OF ITS 
{space} ANCIENT CIVILIZATION" :rem 96 

DATA"THE CAPITAL OF THIS NATION IS PEKING", CH 
INA :rem 139 

DATAD, "THIS ISLAND IS ALSO KNOWN AS FORMOSA" 

:rem 148 

DATA"ASIANS HAVE USED THIS ISLAND AS A REFUGE 
FOR CENTURIES" :rem 98 
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6300 DATA"CHINA CONSIDERS THIS ISLAND PART OF 

{5 SPACES }THEIR COUNTRY" :rem 163 

6310 DATA"THE CAPITAL OF THIS NATION IS TAIPEI ",TA ^r' 

IWAN :reni 229 

6320 DATAD, "OKINAWA AND IWO JIMA ARE POSSESSIONS O 

F THIS ISLAND COUNTRY" :rein 131 

6330 DATA" ITS MOST PROMINENT GEOGRAPHICAL FEATURE 

{SPACE} IS MOUNT FUJI" :rem 232 LJ 

6340 DATA"THIS FORMER SILK CAPITAL IS NOW FAMOUS 

{2 SPACES} FOR ELECTRONICS AND AUTOS" :rem 59 ^ 
6350 DATA"THE CAPITAL OP THIS NATION IS TOKYO", JAP 

AN :rem 105 

6360 DATAD, "THIS PENINSULAR NATION HAS BEEN RULED 

{ SPACE }BYCHINA, JAPAN AND THE USSR" :rem 166 
6370 DATA"THE 38TH PARALLEL DIVIDES THIS COUNTRY ii 

[2 SPACES} INTO TWO SECTIONS" :reni 115 

6380 DATA"THE NORTH SECTION DOES MANUFACTURING, W 

{3 SPACES }WHILE THE SOUTH FARMS" :reni 65 

6390 DATA"IT HAS TWO CAPITALS — PYONGYANG AND 

{5 SPACES} SEOUL", KOREA : rem 3 

6480 DATAD, "WARS WITH VIETNAM AND THAILAND HAVE 

{5 SPACES} TAKEN MOST OF ITS LAND" :rem 195 \/ 
6490 DATA"LAKE TONLE SAP PROVIDES THE FISH TO FEED 

THIS COUNTRY" :rem 78 \~J 

6500 DATA" 90% OF THE POPULATION ARE DESCENDED PROM 

THE KHMER EMPIRE" :reni 221 LJ 

6510 DATA"THE CAPITAL OF THIS NATION IS PHNOM 

{5 SPACES} PENH", CAMBODIA :reni 68 

6520 DATAD, "A 22-YEAR DIVISION OF THIS COUNTRY END ^ 

EDIN 1976" :rein 210 

6530 DATA"THIS COUNTRY DEFEATED KUBLAI KHAN'S UJ 

{5 SPACES }ARMIES IN 1288" :rem 73 

6540 DATA"THE U.S. FOUGHT HERE FROM 1956-1973 IN A LJ 

LOSING BATTLE WITH RUSSIA" srem 128 

6550 DATA"THE CAPITAL OF THIS NATION IS HANOI", VIE ^ 

TNAM trem 238 

6640 DATAD, "THIS IS THE ONLY CONTINENT OCCUPIED BY 

ASINGLE NATION" : rem 250 ^ 

6650 DATA"IT WAS SETTLED BY DEPORTED BRITISH 

{6 SPACES} CRIMINALS" :rem 117 LJ 

6660 DATA"IT WAS ORIGINALLY PEOPLED BY ABORIGINES" 

:rem 57 

6670 DATA"THE CAPITAL OF THIS NATION IS CANBERRA", 
AUSTRALIA srem 82 

6720 DATAE, "THE MAYAS, TOLTECS AND AZTECS RULED 

{5 SPACES} HERE" :rem 129 

6730 DATA"HERNANDO CORTEZ CONQUERED THE COUNTRY IN LJ 
1519" :rem 118 

6740 DATA" IT CLAIMED WHAT IS NOW TEXAS UNTIL 1836" ^ 

:rem 98 ^ 
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DATA"THE CAPITAL OF THIS NATION IS MEXICO 
{4 SPACES} CITY", MEXICO :rem 48 

DATAE, "BALBOA FIRST SIGHTED THE PACIFIC OCEAN 
{2 SPACES} FROM HERE" :reni 99 

DATA"THE SHORTEST DISTANCE BETWEEN ATLANTIC 
[2 SPACES }AND PACIFIC OCEANS IS HERE": rem 113 
DATA"U.S. TROOPS WILL BE REMOVED FROM ITS 
{4 SPACES} CANAL BY 1999" :rem 235 

DATA"THE CAPITAL OF THIS NATION IS PANAMA", PA 
NAMA trera 207 

DATAE, "COLUMBUS FIRST REACHED SOUTH AMERICA 
{4 SPACES}HERE, in 1498" :reni 186 

DATA"PETROLEUM AND IRON MAKE IT ONE OF THE 
{3 SPACES} AREA'S RICHEST NATIONS" :rein 198 
DATA"THE WORLD'S HIGHEST WATERFALL, ANGEL 
{4 SPACES} FALLS, IS FOUND HERE" :reni 41 

DATA"THE CAPITAL OF THIS NATION IS CARACAS", V 
ENEZUELA :rem 6 

DATAE, "THIS COMMUNIST NATION IS ONLY 90 MILES 
{2 SPACES} FROM FLORIDA" :rem 79 

DATA" ITS CAPITAL IS THE LARGEST CITY IN THE 
{2 SPACES }WEST INDIES" : rem 86 

DATA" ITS CHIEF EXPORTS ARE SUGAR AND FINE 

:rem 182 



{4 SPACES} CIGARS" 
DATA"THE CAPITAL OP THIS NATION IS HAVANA", CU 
BA :rem 50 

DATAE, "THIS LARGE NATION IS BIGGER THAN 
{8 SPACES} AMERICA'S 'LOWER 48'" :rem 47 

DATA"THE AMAZON RIVER IS LOCATED HERE": rem 24 
DATA"THIS NATION IS LOCATED DUE SOUTH OF 
{5 SPACES} GREENLAND" : rem 93 

DATA"THE CAPITAL OF THIS NATION IS BRASILIA", 
BRAZIL :rem 119 

DATAE, "ITS CAPITAL CITY CATHEDRAL CORNERSTONE 
{2 SPACES} WAS LAID BY PIZARRO" : rem 96 

DATA"IT IS FAMOUS FOR THE ANDES MOUNTAINS AND 
FOR ITS LLAMAS" trera 129 

DATA "IT IS THE NUMBER ONE PISHING NATION OF 
{2 SPACES }THE world" : rem 189 

DATA"THE CAPITAL OF THIS NATION IS LIMA", PERU 

:rem 198 

DATAE, "IT AND BOLIVA ARE SOUTH AMERICA'S TWO 
{3 SPACES} LANDLOCKED NATIONS" : rem 135 

DATA" IT LOST 60% OF ITS POPULATION IN THE WAR 
OF TRIPLE ALLIANCE" : rem 38 

DATA"MUCH OF ITS LAND WAS WON FROM BOLIVA IN 
{space} THE CHACO WAR" : rem 142 

DATA"THE CAPITAL OF THIS NATION IS ASUNCION", 
PARAGUAY :rem 37 
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7280 DATAE,"IT PRODUCES 10% OF THE WORLD'S COPPER" 

:rein 105 

7290 DATA" IT PRODUCES HALF OF THE WORLD'S IODINE" 

:reiii 125 

7300 DATA" IT SHARES THE ISLAND OF TIERRA DEL FUEGO 

WITH ARGENTINA" :rem 163 

7310 DATA"THE CAPITAL OF THIS NATION IS SANTIAGO", 

CHILE :rem 33 

7320 DATAE,"IT HAS LATIN AMERICA'S HIGHEST PER 

{6 SPACES} CAPITA INCOME" :rera 88 

7330 DATA "EUROPEANS MAKE UP 97% OF THIS COUNTRY'S 

{space} POPULATION" :rem 187 

7340 DATA" ITS PAMPAS ARE SIMILAR TO THE U.S. GRAIN 

BELT" :rem 231 

7350 DATA"THE CAPITAL OF THIS NATION IS BUENOS 

{4 SPACES} AIRES ".ARGENTINA :rem 67 

7360 DATAE, "CHARUGA INDIANS LIVED HERE UNTIL THE 

{4 SPACES} SPANISH ARRIVED IN 1624" :rem 44 
7370 DATA" FLOODS AND DROUGHT RAISED ITS COST OF 

{3 SPACES }LIVING 1200% IN NINE YEARS" :rem 82 
7380 DATA" IT IS BORDERED BY BRAZIL, ARGENTINA AND 

{SPACE} THE ATLANTIC OCEAN" : rem 62 

7390 DATA"THE CAPITAL OF THIS NATION IS {11 SPACES} 

MONTEVIDEO", URUGUAY :rera 154 

7400 DATAE, "IT WON INDEPENDENCE FROM GREAT BRITAIN 

{2 SPACES} IN 1776" :rem 169 

7410 DATA" IT IS BORDERED BY CANADA, MEXICO AND TWO 

OCEANS" :rem 84 

7420 DATA"THE MISSISSIPPI RIVER DIVIDES THE 

{7 SPACES} COUNTRY" : rem 14 

7430 DATA"THE CAPITAL OF THIS NATION IS WASHINGTON 

D.C", "UNITED STATES" :rem 1 

7440 DATAE, "IN LAND AREA, IT IS THE WORLD'S SECOND 

{2 SPACES} LARGEST COUNTRY" :rem 183 

7450 DATA"MOST OP ITS PEOPLE LIVE NEAR THE U.S. 

{3 SPACES} BORDER" :rem 180 

7460 DATA" ITS FRENCH-SPEAKING PEOPLE HAVE TRIED TO 

SECEDE FROM THE NATION" : rem 223 

7470 DATA"THE CAPITAL OF THIS NATION IS OTTAWA", CA 

NADA :rem 213 



Program 3. Mother Earth - DATA 2 

3190 DATAA, "THE CITY OF REYKJAVIK BORDERS THE ARCT 
IC CIRCLE" I rem 81 

3200 DATA"IT WAS A TERRITORY OF DENMARK UNTIL 

{5 SPACES} 1944" :rem 181 

3210 DATA"THE WATER IN THE HOMES IS HEATED BY 

{5 SPACES} GEYSERS" :rem 128 
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DATA"THIS ISLAND HAS A VOLCANO AND EUROPE'S 
{2 SPACES} LARGEST GLACIER" , ICELAND : rem 137 
DATAA, "'GOD MADE THE EARTH, BUT THE DUTCH MAD 
E THE COUNTRY'" trem 199 

DATA "A COMMON NAME FOR THIS COUNTRY MEANS 
{4 SPACES} 'HOLLOW L/UJD'" :rein 95 

DATA"ITS WINDMILLS PUMP WATER BACK INTO THE 
{2 SPACES} SEA" s rem 153 

DATA" ITS CAPITAL IS A MAJOR DIAMOND CENTER"," 
THE NETHERLANDS" : rem 174 

DATAA, "THE ARDENNES PLATEAU IS A CENTER OF ZI 
NCAND COAL PRODUCTION" : rem 47 

DATA"THE CAPITAL OF THIS NATION IS BRUSSELS" 

: rem 170 



DATA "THE CONGO (ZAIRE) 
THIS COUNTRY" 
DATA" ITS LANGUAGE IS A 
FRENCH", BELGIUM 



USED TO BE A COLONY OF 
:rem 187 

MIXTURE OF FLEMISH AND 
:rem 190 



DATAA, "THOUGH SMALL IN SIZE, IT PRODUCES A LO 



T OF STEEL" 



:rem 32 



DATA"THE CAPITAL OP THIS NATION IS{11 SPACES} 
LUXEMBOURG" : rem 69 

DATA" IT IS RULED BY A GRAND DUKE AND A PRIME 
{ SPACE }MINISTER" : rem 77 

DATA" IT LOST TO GERMANY IN BOTH WORLD WARS",L 
UXEMBOURG : rem 128 

DATAA, "THE LACK OF NATURAL BOUNDARIES MAKES 
{4 SPACES} ITS SHAPE CHANGE OFTEN" :rem 37 

DATA" IT HAS BEEN OVERRUN BY AUSTRIA, PRUSSIA 
{space} AND RUSSIA" :rem 157 

DATA "GERMANY INVADED THIS COUNTRY TO START 
{3 SPACES }WORLD WAR II" :rem 216 

DATA"THE CAPITAL OF THIS NATION IS WARSAW", PO 
LAND :rem 250 

DATAA, "IT IS DIVIDED INTO THREE REGIONS, ONE 
{ SPACE }OFWHICH IS BOHEMIA" :rem 58 

DATA" IT HAS HAD RESTRICTED FREEDOM SINCE 
{5 SPACES}RUSSIA invaded IT IN 1968" :rem 189 
DATA" IT CONTAINS THE ELBE RIVER AND THE 
{6 SPACES} CARPATHIAN MOUNTAINS" : rem 247 

DATA"THE CAPITAL OF THIS NATION IS PRAGUE", CZ 



ECHOSLOVAKIA 



:rem 69 



DATAA, "IT WAS RULED BY TURKS AND OTHER INVADE 



RSUNTIL 1867" 



:rem 231 



DATA" ITS FIRST KING ALSO WAS CO-RULER OF 



{5 SPACES} AUSTRIA" 



:rem 226 



DATA "THE COUNTRY WAS OVERRUN BY RUSSIA IN 
{4 SPACES}1956" :rem 64 

DATA"THE CAPITAL OF THIS NATION IS BUDAPEST", 
HUNGARY srem 220 
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3810 DATAA, "ITS PLOESTI OH. FIELDS ARE AMONG THE ^_J 
{4 SPACES} RICHEST IN EUROPE" irem 230 

3820 DATA "COMMUNISTS TOOK OVER THIS NATION IN O 
{5 SPACES}1947" jrem 35 

3830 DATA"AGAINST SOVIET WISHES, IT REMAINS ^ 
{7 SPACES} FRIENDLY TO WESTERN NATIONS" 

trem 252 

3840 DATA"THE CAPITAL OF THIS NATION IS BUCHAREST" 

, RUMANIA trern 24 

3850 DATAA, "IT OCCUPIES THE EASTERN PART OF THE 

{5 SPACES} BALKAN PENINSULA" :reni 139 

3860 DATA" ITS MANY MOUNTAINS CAUSE IT TO HAVE VERY ^ 

LITTLE ARABLE LAND" :rem 193 

3870 DATA"ONE OF ITS IMPORTANT EXPORTS IS ROSE OIL ^ 

FOR PERFUME" :rem 62 

3880 DATA"THE CAPITAL OF THIS NATION IS SOFIA", BUL 

GARIA :rem 39 

3890 DATAA, "ITS NAME MEANS 'LAND OF THE SOUTHERN 

{4 SPACES } SLAVS ' " : rem 8 ^ 

3900 DATA" ITS LANGUAGES INCLUDE SLOVENIAN, 

{8 SPACES} MACEDONIAN AND SERBO-CROATIAN" 

:rein 43 

3910 DATA"ITS RULER, TITO, KEPT THIS COMMUNIST 
{4 SPACES} COUNTRY SEPARATE FROM RUSSIA" 

:rein 252 

3920 DATA"THE CAPITAL OF THIS NATION IS BELGRADE", «o 

YUGOSLAVIA trem 163 

3930 DATAA, "THOUGH A SOVIET SATELLITE, IT USUALLY ^ 

{3 SPACES} SIDES WITH CHINA" treni 58 

3940 DATA" ITS CHIEF PRODUCTS ARE MARKETED MAINLY 

{2 SPACES} BY CHINA" :rein 222 

3950 DATA" IT WAS RULED BY THE TURKS FOR OVER 400 

[2 SPACES} YEARS" : rem 131 \^ 

3960 DATA"THE CAPITAL OF THIS NATION IS TIRANA", AL 

BANIA :rem 20 

4010 DATAA, "MOZAMBIQUE AND ANGOLA WERE FORMERLY 

{5 SPACES} RULED BY THIS COUNTRY" :rem 53 ^ 

4020 DATA"MADEIRA AND THE AZORES ARE BOTH RULED BY 

THIS COUNTRY" : rem 39 

4030 DATA"THE COUNTRY IS DIVIDED BY THE TAGUS ^ 

[5 SPACES} RIVER" :rem 87 

4040 DATA"THE CAPITAL OF THIS NATION IS LISBON", PO \^ 

RTUGAL :rem 152 

4080 DATAB, "THIS MEDITERRANEAN ISLAND WAS CONTROLL ^ 

EDBY BRITAIN UNTIL 1960" : rem 43 

4090 DATA "BOTH GREECE AND TURKEY HAVE FOUGHT FOR 

{2 SPACES} CONTROL OF THIS COUNTRY" :rem 180 
4100 DATA"THE CONSTITUTION CALLS FOR BOTH GREEK 

{3 SPACES} AND TURKISH LEADERS" :rem 165 *0 
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DATA"THE CAPITAL OF THIS NATION IS NICOSIA", C 
YPRUS :rem 77 

DATAB, "ONE OF FEW MID-EAST NATIONS WITH ENOUG 
H RAINFALL FOR FARMING" :rem 115 

DATA" IT WAS ONCE PART OF SHEBA, WHOSE QUEEN 
{2 SPACES} ACHIEVED BIBLICAL FAME" :rein 183 
DATA" ITS PEOPLE GET MONEY FROM OIL- RICH 
{6 SPACES} RELATIVES IN OTHER NATIONS" : rem 148 
DATA"THE CAPITAL OF THIS NATION IS SANAA", YEM 
EN :rem 72 

DATAB,"ITS CAPITAL SUPPLIED INCENSE, SILK AND 
{2 SPACES} SPICES IN BIBLICAL TIMES" trem 53 
DATA" IT CONTROLS THE ISLANDS OF SOCOTRA, 
{5 SPACES }KAMARAN AND PERIM" trem 82 

DATA" ITS BIGGEST ASSET IS THE GULF OF ADEN 
{3 SPACES} SEAPORT" :rem 23 

DATA"THE CAPITAL AND ONLY MAJOR CITY IS ADEN" 
, "SOUTH YEMEN" :rem 8 

DATAB,"IT OCCUPIES THE EASTERN CORNER OP THE 
{3 spaces} ARABIAN PENINSULA" :rem 99 

DATA"IT RULED ZANZIBAR UNTIL THE 1861 BRITISH 
INTERVENTION" :rem 160 

DATA" IT IS RULED BY A SULTAN" ! rem 143 

DATA"THE CAPITAL OF THIS NATION IS MUSKAT",OM 
AN :rem 101 

DATAB, "IT WAS FORMED FROM 3 BRITISH SHEIKDOMS 
{2 SPACES} AND THE 7 TRUCIAL STATES" :rem 210 
DATA"OIL GIVES IT ONE OF THE HIGHEST PER 
{5 SPACES} CAPITA INCOMES IN THE WORLD" trem 52 
DATA"QATAR SECEDED FROM THE FEDERATION IN 
{4 SPACES} 1971" :rem 240 

DATA"THE CAPITAL OF THIS NATION IS ABU DHABI" 
,"U. ARAB EMIRATES" trem 208 

DATAB, "LACK OF SKILLED LABOR RESTRICTS ITS PE 
R CAPITA INCOME TO $18,000" trem 182 

DATA "IT BECAME INDEPENDENT OF THE UNITED ARAB 
EMIRATES IN 1971" trem 174 

DATA"IT WAS CONQUERED BY BAHRAIN, TURKEY 7VND 
{SPACE}GREAT BRITAIN" trem 76 

DATA"THE CAPITAL OF THIS NATION IS DOHA",QATA 
R trem 2 

DATAB, "THOUGH A SMALL NATION, IT RANKS 7TH IN 
{2 SPACES}THE world IN OIL PRODUCED" trem 212 
DATA"IT IS BORDERED BY IRAQ, SAUDI ARABIA, 
{3 SPACES} AND THE PERSIAN GULF" s rem 211 

DATA "IT HAS BEEN RULED BY THE AL-SABAH 
{7 SPACES } DYNASTY SINCE 1759" trem 66 

DATA"THE CAPITAL OF THIS NATION IS KUWAIT", KU 
WAIT trem 18 
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4720 DATAB,"IT IS LOCATED BETWEEN LIBYA AND ALGERI 

A" :reni 17 

4730 DATA"THANKS TO FRENCH CONTROL, IT HAS GOOD 

{3 SPACES} PORTS AND RAILROADS" : rem 73 

4740 DATA"THE ANCIENT POWER OF CARTHAGE WAS 

{7 SPACES} LOCATED HERE" trem 124 

4750 DATA"THE CAPITAL OF THIS NATION IS TUNIS", TUN 

ISIA :rem 27 

4760 DATAB, "IT WAS PART OF THE FRENCH NATION, NOT 

{SPACE}A COLONY" : rem 131 

4770 DATA"25% OP THE POPULATION SPEAKS BERBER 

{5 spaces} DIALECTS" : rem 255 

4780 DATA" IT IS BORDERED BY TUNISIA, LIBYA AND 

{4 spaces} MOROCCO" :rem 235 

4790 DATA"THE CAPITAL OF THIS NATION IS ALGIERS", A 

LGERIA :rem 107 

4800 DATAB, "ITS CITY OF TANGIER IS ONE OF THE 

{7 SPACES} WORLD'S GREAT FREE PORTS" : rem 131 
4810 DATA"ITS MOST FAMOUS CITIES ARE CASABLANCA 

{3 SPACES} AND MARRAKECH" :rem 220 

4820 DATA" ITS PORTS WERE RULED BY SPAIN, BUT THE 

[2 SPACES} COUNTRY WAS RULED BY FRANCE": rem 86 
4830 DATA"THE CAPITAL OF THIS NATION IS RABAT ",MOR 

OCCO :rem 230 

4840 DATAC, "LOCATED SOUTH OF MOROCCO, THIS STATE I 

S PEOPLED WITH NOMADS" : rem 91 

4850 DATA"IT ANNEXED THE SOUTH PART OF THE SPANISH 

SAHARA IN 1976" :rem 36 

4860 DATA"IN 1980, IT GAVE ITS SHARE OF THE 

{7 SPACES} SPANISH SAHARA TO MOROCCO" : rem 217 
4870 DATA"THE CAPITAL OF THIS NATION IS {11 SPACES} 

NOUAKCHOTT "/MAURITANIA : rem 89 

4920 DATAC, "GUINEA-BISSAU ACHIEVED INDEPENDENCE FR 

OMTHIS NATION IN 1976" :rem 135 

4930 DATA "IT CONTAINS UP TO HALF OF THE WORLD'S 

{3 SPACES} BAUXITE" : rem 23 

4940 DATA "IT BROKE FROM FRANCE, THEN BECAME 

{7 SPACES} COMMUNIST TO GET RUSSIAN AID" 

:rem 79 

4950 DATA"THE CAPITAL OF THIS NATION IS CONAKRY", G 

UINEA :rem 61 

5000 DATAC, "ITS ECONOMY HAS BEEN HELPED BY THE 

{6 SPACES} CALCIUM PHOSPHATE INDUSTRY" : rem 236 
5010 DATA" ITS POPULATION IS MADE UP OF BANTU AND 

{2 SPACES }HAMITIC TRIBES" :rem 33 

5020 DATA"THIS FRENCH TERRITORY WAS LOST BY THE 

{3 spaces} GERMANS IN WORLD WAR II" : rem 56 
5030 DATA"THE CAPITAL OF THIS NATION IS LOME", TOGO 

:rem 201 
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DATAC, "THE COUNTRY WAS KNOWN AS DAHOMEY UNTIL 
{2 SPACES} 1975" :rein 32 

DATA"THE FORMER KINGDOM OF ABOMEY BECAME A 
{3 SPACES} SOCIALIST STATE IN 1974" :rem 165 
DATA"THE PORT OF COTONOU IS ITS GREATEST 
{5 SPACES }ASSET" :rem 118 

DATA "IT HAS TWO CAPITALS — PORTO-NOVO AND 
{3 SPACES }C0T0N0U", BENIN :reni 221 

DATAC, "IT WAS CONTROLLED BY BOTH THE FRENCH A 
NDTHE BRITISH UNTIL 1960" :reni 156 

DATA" ITS OFFICIAL LANGUAGES ARE FRENCH AND 
{3 SPACES} ENGLISH" :rem 91 

DATA"HALF OF ITS BRITISH SECTOR WAS ANNEXED 
{2 SPACES }T0 NIGERIA IN 1961" :rem 161 

DATA"THE CAPITAL OF THIS NATION IS YAOUNDE", C 
AMEROON :rem 203 

DATAC, "THE ALBERT SCHWEITZER LAMBARENE HOSPIT 
ALIS LOCATED HERE" : rem 223 

DATA"MUCH OF ITS WEALTH HAS COME FROM ITS 
{4 SPACES} HARDWOOD FORESTS" :rem 64 

DATA"HUGE DEPOSITS OF URANIUM AND MANGANESE 
{2 SPACES }HAVE BEEN FOUND HERE" srem 178 

DATA"THE CAPITAL OF THIS NATION IS {11 SPACES} 
LIBREVILLE", GABON : rem 183 

DATAC, "BRITAIN ESTABLISHED ITS CAPITAL AS A 
{4 SPACES} FREE SLAVE SANCTUARY" :rem 227 

DATA"MORE THAN 60,000 DESCENDANTS OF SLAVES 
{2 SPACES} (CREOLES) LIVE HERE" :rem 235 

DATA" IT IS LOCATED ON THE ATLANTIC, BETWEEN 
[2 SPACES} LIBERIA AND GUINEA" : rem 232 

DATA"THE CAPITAL OF THIS NATION IS FREETOWN", 
"SIERRA LEONE" :rem 80 

DATAC, "IT BECAME BRITAIN'S FIRST AFRICAN 
{7 SPACES} POSSESSION IN 1588" :rem 88 

DATA" IT IS SURROUNDED BY SENEGAL ON THREE 
{4 SPACES}SIDES" :rem 153 

DATA" ITS CROPS OF PEANUTS AND RICE ARE GROWN 
{space} ALONG THE GAMBIA RIVER" :rem 40 

DATA"THE CAPITAL OF THIS NATION IS BANJUL", "T 
HE GAMBIA" :rem 230 

DATAC, "IT IS LOCATED ON THE EASTERN HORN OF 
{4 SPACES} AFRICA" : rem 209 

DATA"MANY OF ITS NOMAD PEOPLE LIVE OUTSIDE 
{3 SPACES }THE country's BORDERS" : rem 7 

DATA"A SMALL AREA IS STILL CONTROLLED BY THE 
{space} FRENCH" :rem 76 

DATA"THE CAPITAL OF THIS NATION IS MOGADISHU" 
.SOMALIA :rem 18 
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5520 DATAC, "IT WAS CREATED WHEN TANGANYIKA AND 

{6 SPACES} ZANZIBAR MERGED" :rem 26 

5530 DATA"MOUNT KILIMANJARO IS LOCATED IN THIS 

{4 SPACES} NATION" :rein 31 

5540 DATA" ITS ISLAND OP ZANZIBAR WAS ONCE THE 
{5 SPACES} CENTER OF ARAB SLAVE TRADING" 

trem 174 

5550 DATA"THIS NATION'S CAPITAL IS DAR-ES-SALAAM" , 

TANZANIA :reni 60 

5600 DATAC, "ITS PREVIOUS NAME WAS THE BELGIAN CONG 

O" I rem 90 

5610 DATA"ONE OF THE WORLD'S LARGEST RIVERS, THE 

{2 SPACES} ZAIRE, IS HERE" :rem 229 

5620 DATA "TWO- THIRDS OF THE WORLD'S COBALT COMES 

{2 SPACES} FROM HERE" : rem 28 

5630 DATA"THE CAPITAL OF THIS NATION IS KINSHASA", 

ZAIRE :rem 54 

5640 DATAC, "IT SHARES THE NAME OF AFRICA'S SECOND 

1 3 SPACES} LARGEST RIVER" :rem 12 

5650 DATA"THOUGH A FRENCH SPEAKING COUNTRY, IT IS 

{SPACE}A SOCIALIST NATION" :rem 148 

5660 DATA" IT CONSISTS OF A STRIP OF LAND BETWEEN 

{2 SPACES} GABON AND ZAIRE" :rem 29 

5670 DATA"THE CAPITAL OF THIS NATION IS {11 SPACES} 

BRAZZAVILLE", CONGO :rem 41 

5680 DATAC, "IT WAS CALLED NORTHERN RHODESIA UNTIL 

{3 SPACES} ITS INDEPENDENCE IN 1964" :rem 213 
5690 DATA" IT GOT INDEPENDENCE FROM BRITAIN ALONG 

{2 SPACES }WITH RHODESIA AND MALAWI" :rem 226 
5700 DATA" IT IS THE WORLD'S FOURTH LARGEST COPPER 

{space} PRODUCER" : rem 93 

5710 DATA"THE CAPITAL OF THIS NATION IS LUSAKA", ZA 

MBIA :rem 221 

5760 DATAC, "ITS MAIN GEOGRAPHICAL FEATURE IS THE 

{4 SPACES} ZAMBEZI RIVER" :rem 61 

5770 DATA" IT WAS CONTROLLED BY PORTUGAL FROM 1505 

{ SPACE }T0 1975" :rem 48 

5780 DATA" ITS NEW MAOIST LEADERS HAVE CLOSED 

{6 SPACES} PRIVATE SCHOOLS" :rem 237 

5790 DATA"THE CAPITAL OF THIS NATION IS MAPUTO", MO 

ZAMBIQUE :rem 64 

5800 DATAC, "A PORTUGUESE COLONY UNTIL 1975, IT'S 1 

2 TIMES THE SIZE OF PORTUGAL" : rem 107 

5810 DATA"IT WAS UNSETTLED UNTIL RECENTLY, WHEN 

{3 SPACES} 400, 000 PORTUGUESE MOVED IN": rem 49 
5820 DATA"ITS MARXIST GOVERNMENT WAS STARTED WITH 

{ SPACE }HELP FROM THE USSR AND CUBA" :rem 1 
5830 DATA"THE CAPITAL OF THIS NATION IS LUANDA", AN 

GOLA :rem 210 
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DATAC, "THIS INDIAN ISLAND NATION IS THE SIZE 
{ SPACE }OFTEXAS" :rera 223 

DATA" IT SUPPLIES 80% OF THE WORLD'S VANILLA" 

:rein 78 

DATA"THE NATION'S PEOPLE ARE OF INDONESIAN 
{3 SPACES} DESCENT" :rera 117 

DATA"THE CAPITAL OF THIS NATION IS {11 SPACES} 
ANTANANARIVO", MADAGASCAR :rem 181 

DATAC, "IT WAS A BRITISH PROTECTORATE KNOWN AS 
{2 SPACES }BECHUANALAND UNTIL 1966" : rem 240 
DATA" AFRICA'S BUSHMEN MAKE THEIR kOME HERE" 

:rem 72 

DATA" IT WAS CREATED BY THE BRITISH TO PROTECT 
TRIBESMEN FROM THEIR ENEMIES" ireiti 100 

DATA"THE CAPITAL OF THIS NATION IS GABORONE", 
BOTSWANA :rem 26 

DATAC, "IT'S COMPLETELY SURROUNDED BY SOUTH 
{5 SPACES} AFRICA" : rem 149 

DATA"MORE THAN HALF OF ITS WORKING POPULATION 
WORKS IN SOUTH AFRICA" trem 195 

DATA" ITS MOUNTAIN TERRAIN HAS PROTECTED IT 
{3 SPACES} FROM SOUTH AFRICA" srem 52 

DATA"THE CAPITAL OF THIS NATION IS MASERU", LE 
SOTHO :rem 93 

DATAD,"IT WAS FORMERLY KNOWN AS EAST PAKISTAN 
" :rem 61 

DATA"THE MOUTH OF THE GANGES RIVER IS FOUND 
{2 SPACES }HERE" :rem 138 

DATA" IT IS ALMOST ENTIRELY SURROUNDED BY 
{5 SPACES} INDIA" : rem 165 

DATA"THE CAPITAL OF THIS NATION IS DACCA", BAN 
GLADESH :rem 120 

DATAD, "IN RECENT HISTORY, THIS COUNTRY WAS 
{5 SPACES }KN0WN AS CEYLON" :rem 147 

DATA" IT WAS ONCE CALLED SERENDIP, THE ROOT 
{3 SPACES }WORD OP 'SERENDIPITY'" :reni 152 

DATA" IT IS AN ISLAND OFF THE SOUTHERN TIP OF 
{SPACE} INDIA" :reni 203 

DATA"THE CAPITAL OF THIS NATION IS COLUMBO"," 
SRI LANKA" :rera 21 

DATAD, "THE IRAWADDY RIVER CAN BE NAVIGATED FO 
R 900 MILES IN THIS COUNTRY" : rem 63 

DATA"CONQUERED BY BRITAIN THREE TIMES, IT WAS 
RULED BY THEM UNTIL 1937" :rem 198 

DATA" ITS CHIEF RESOURCES ARE RUBIES AND 
{6 SPACES }TEAKWOOD" :rem 7 

DATA"THE CAPITAL OF THIS NATION IS RANGOON", B 
URMA :rem 243 
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6440 DATAD, "EACH MAN HERE MUST BE A BUDDHIST MONK 

{3 SPACES} FOR PART OF HIS LIFE" :rem 1 

6450 DATA" IT WAS FORMERLY CALLED SIAM" : rem 244 
6460 DATA"NO EUROPEAN COUNTRY HAS EVER CONTROLLED 

{SPACE} THIS SOUTHEAST ASIAN COUNTRY" irem 250 
6470 DATA "ITS CAPITAL OF BANGKOK HAS MORE CANALS 

{2 SPACES} THAN VENICE" , THAILAND : rem 198 

6560 DATAD, "THIS ARCHIPELAGO EXTENDS INTO BOTH THE 

{2 SPACES} INDIAN AND PACIFIC OCEANS" : rem 135 
6570 DATA"THE CHIEF OF ITS 13,000 ISLANDS IS JAVA" 

:rem 225 

6580 DATA"THE ISLAND OF JAVA CONTAINS 1,500 

{7 SPACES } PERSONS PER SQUARE MILE" trem 222 
6590 DATA"THE CAPITAL OF THIS NATION IS JAKARTA", I 

NDONESIA trem 7 

6600 DATAD, "THE SPANISH FOUNDED ITS MAIN CITY, AND 

{2 SPACES} ITS CURRENCY IS THE PESO" :rem 242 
6610 DATA" ITS ISLANDS BEAR THE NAME OF KING PHILIP 

II OF SPAIN" :rem 107 

6620 DATA"ITS MAIN LANGUAGES ARE FILIPINO, ENGLISH 

AND SPANISH" :rem 41 

6630 DATA" ITS CAPITAL IS QUEZON CITY AND ITS CHIEF 

CITY IS MANILA", PHILIPPINES : rem 236 

6680 DATAD, "CAPTAIN COOK CLAIMED THIS ISLAND GROUP 

{2 SPACES}FOR BRITAIN IN 1769" :rem 155 

6690 DATA" IT WAS SETTLED FIRST BY MAORIS AND THEN 

{space} BY THE BRITISH" :rem 81 

6700 DATA" IT CONSISTS OF THE SOUTHERNMOST ISLANDS 

{ SPACE }0F POLYNESIA" : rem 198 

6710 DATA"THE CAPITAL OF THIS NATION IS {11 SPACES} 

WELLINGTON", "NEW ZEALAND" : rem 153 

6760 DATAE, "THE NATION OF BELIZE IS CLAIMED BY THI 

S COUNTRY" :rem 46 

6770 DATA" IT IS LOCATED BETWEEN MEXICO AND 

{8 SPACES} HONDURAS" :rem 109 

6780 DATA" IT HAS THE LARGEST POPULATION OP ALL THE 

CENTRAL AMERICAN NATIONS" : rem 94 

6790 DATA"THE CAPITAL OF THIS NATION IS GUATEMALA 

{ SPACE }CITY", GUATEMALA :rem 204 

6300 DATAE, "COLUMBUS ARRIVED HERE ON HIS FINAL 

{6 SPACES} VOYAGE IN 1502" trem 77 

6810 DATA" ITS MESTIZO POPULATION SPEAKS SPANISH 

{3 SPACES} AND ENGLISH" trem 13 

6820 DATA" IT IS BORDERED BY GUATEMALA, NICARAGUA 

[2 SPACES} AND EL SALVADOR" trem 81 

6830 DATA"THE CAPITAL OF THIS NATION IS{ll SPACES} 

TEGUCIGALPA", HONDURAS trem 246 

6840 DATAE, "IT'S CENTRAL AMERICA'S SMALLEST NATION 

" trem 91 
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DATA" IT'S THE ONLY CENTRAL AMERICAN COUNTRY 

{2 SPACES} WITH NO SEACOAST" : rem 20 

DATA" ITS WORKERS IN HONDURAS HAVE CAUSED 

{5 SPACES } PROBLEMS WITH THAT COUNTRY" : rem 40 

DATA"THE CAPITAL OP THIS NATION IS SAN 

{7 SPACES} SALVADOR", "EL SALVADOR" :rem 223 

DATAE,"IT HAS THE LARGEST LAND MASS OF ALL TH 

E CENTRAL AMERICAN NATIONS" :rera 24 

DATA"THE U.S. WANTS AN ATLANTIC-TO-PACIFIC 

{3 SPACES} CANAL TO BE BUILT HERE" :rera 159 

DATA" IT IS BETWEEN HONDURAS AND CENTRAL 

{6 SPACES} AMERICA" :rem 162 

DATA"THE CAPITAL OF THIS NATION IS MANAGUA", N 

ICARAGUA :rem 240 

DATAE,"ITS 90% LITERACY RATE IS THE HIGHEST I 

N CENTRAL AMERICA" :rem 194 

DATA" ITS STANDARD OF LIVING IS HIGHEST OF ANY 

CENTRAL AMERICAN NATION" :rem 6 

DATA "ITS ECONOMY IS BASED MAINLY ON SMALL 

{4 SPACES } INDEPENDENT FARMS" :reni 189 

DATA"THE CAPITAL OF THIS NATION IS SAN JOSE", 

"COSTA RICA" :rem 95 

DATAE, "THESE 3 NORTH COAST COUNTRIES ARE FORM 

ERBRITISH COLONIES" :rem 23 

DATA"THEY ARE COMPOSED OF FRENCH GUIANA, 

{5 SPACES} SURINAM AND GUYANA" :rem 117 

DATA"ONE OF THESE 3 NATIONS USED TO BE A 

{5 SPACES} FRENCH PRISON COLONY" :rem 103 

DATA"ITS CAPITALS ARE GEORGETOWN, CAYENNE, 

{3 SPACES }AND PARAMARIBO" , "THE GUIANAS" 

:rem 167 

DATAE, "THE ONLY SOUTH AMERICAN COUNTRY WITH 
{4 SPACES} ATLANTIC AND PACIFIC COASTS" 

:rem 227 

DATA"ONLY BRAZIL PRODUCES MORE COFFEE THAN 
{3 SPACES }THIS COUNTRY" :rem 11 

DATA" IT PRODUCES 95% OF THE WORLD'S EMERALDS" 

:rem 128 

DATA"THE CAPITAL OP THIS NATION IS BOGOTA", CO 
LOMBIA ;rem 102 

DATAE, "IT OCCUPIES THE WEST HALF OP THE ISLAN 
D OF HISPANIOLA" :rem 127 

DATA" ITS ECONOMY IS BASED ON RUM, MOLASSES 
{3 SPACES} AND TOURISM" :rem 89 

DATA" ITS CITIZENS ARE DESCENDED FROM AFRICAN 
{space} SLAVES" :rem 209 

DATA"THE CAPITAL OP THIS NATION IS{11 SPACES} 
PORT-AU-PRINCE", HAITI :rem 206 

DATAE, "IT SHARES THE ISLAND OF HISPANIOLA WIT 
H HAITI" :rem 197 

159 



Level 

am 

8170 DATA"COLUMBUS'S ASHES ARE HERE" : rem 130 

8180 DATA"IT BOASTS THE WORLD'S LARGEST SUGAR 

{5 SPACES}MILL" :rem 61 

8190 DATA"THE CAPITAL OF THIS NATION IS SANTO 

{5 SPACES} DOMINGO" : rem 211 

8195 DATA"DOMINICAN REPUBLIC" :rem 29 

8200 DATAE,"1P THE U.S. EVER ADDS ANOTHER STATE, 

{4 SPACES} THIS WILL BE IT" :rem 173 

8210 DATA"IT SENDS A NON-VOTING REPRESENTATIVE TO 

{SPACE} THE U.S. CONGRESS" :rem 144 

8220 DATA"ITS CITIZENS ARE ALSO CITIZENS OF THE 

{3 SPACES}U.S" :rem 63 

8230 DATA"THE CAPITAL OF THIS NATION IS SAN JUAN", 

"PUERTO RICO" :rem 200 

8240 DATAE, "IT IS SELF-GOVERNING, THOUGH UNDER 

{6 SPACES} BRITISH CONTROL" :rem 139 

8250 DATA"THE ARAWAK INDIANS WHO LIVED HERE WERE 

{2 SPACES }KILLED BY SPAIN" : rem 79 

8260 DATA"IT SPEAKS ENGLISH, BUT TIES ITSELF WITH 

{SPACE}CUBA and RUSSIA" :rem 176 

8270 DATA"THE CAPITAL OF THIS NATION IS KINGSTON", 

JAMAICA :rem 191 

8280 DATAE, "THEY ARE A GROUP OF 700 ISLANDS EAST O 

F FLORIDA" :rem 126 

8290 DATA" COLUMBUS FIRST REACHED THE NEW WORLD 

{4 SPACES} HERE" :rem 134 

8300 DATA"THEIR INCOME COMES PROM TOURISM, RUM, 

{3 SPACES} DRUGS AND BANKING" :rem 220 

8310 DATA"THE CAPITAL OF THIS NATION IS NASSAU", BA 

HAMAS :rem 31 

8320 DATAE, "ITS NAME IS SPANISH FOR 'EQUATOR'" 

:rem 181 

8330 DATA"IT IS THE WORLD'S LARGEST PRODUCER OF 

{3 SPACES} BANANAS" : rem 71 

8340 DATA"THE WORLD'S MAIN PRODUCER OF BALSA WOOD" 

:rem 202 

8350 DATA"THE CAPITAL OF THIS NATION IS QUITO", ECU 
ADOR 

8360 DATAE, "ONLY MALAYSIA PRODUCES MORE TIN THAN 

{4 SPACES }THIS COUNTRY" : rem 77 

8370 DATA"THE ANDES MOUNTAINS FORM ITS WESTERN 

{4 SPACES} BORDER" : rem 68 

8380 DATA"CHILE CAPTURED THIS COUNTRY'S PACIFIC 

{3 SPACES }COAST" :rem 61 

8390 DATA"THE CAPITAL OF THIS NATION IS LA PAZ", BO 

LI VI A :rem 237 
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Mr. President 



Skill area: Social Studies 
Level: 4 

Equipment required: None 
Modification: Yes 



"Mr. President" is desigiied to teach facts about the United States 
presidents. You are given clues and then asked to identify the 
president from the clues. Points are given depending on how 
many clues you need to identify a president. 

How to Play 

You will be given up to four questions that can be answered with 
the name of a particular president. To begin the game, hit any key 
and wait ten seconds for the computer to organize the questions. 

When a question is asked by the computer, answer it by 
tj^ing the name of the president as it appears below. The com- 
puter will count any misspelling as an incorrect answer, so make 
sure to enter the names exactly. If you don't know the answer to a 
clue, take a guess, or press the RETURN key. 

Here are the United States presidents whose names youH be 
using: 





J Adams 


J Garfield 


L Johnson 


F Roosevelt 




Q Adams 


U Grant 


J Kennedy 


T Roosevelt 




C Arthur 


W Harding 


A Lincoln 


WTaft 


n 


J Buchanan 


B Harrison 


J Madison 


Z Taylor 




J Carter 


W Harrison 


WMcKinley 


H Truman 


G Cleveland 


R Hayes 


J Monroe 


J Tyler 




CCoolidge 


H Hoover 


R Nixon 


M Van Buren 




D Eisenhower 


A Jackson 


F Pierce 


G Washington 


M Fillmore 


T Jefferson 


J Polk 


W Wilson 




GFbrd 


A Johnson 


R Reagan 





YouH notice a few things about this list. First, the men are 
listed by first initial rather than first name. Second, there is no 
period after the initial as it is written for the computer. Third, be- 
cause there are two presidents with the name J Adams, John 
Adams and John Quincy Adams, the two presidents have been 
distinguished by referring to the latter as Q Adams. Pay dose 
attention to these rules. If you know the answer to a question is 
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Abraham Lincoln and you enter the words Abraham Lincoln or 
even A. Lincoln, the computer will count your answer incorrect. 

If you still haven't discovered the name of a president after 
four questions, the name will appear on the screen. A second or 
two after the name flashes, the game continues. 

You can quit plapng at any time by entering END on the key- 
board. Your percentage score will not be affected if you quit before 
aU questions have been asked. 

Scoring 

Points will be awarded as follows: 

If you guess correctly after only 1 clue, 4 points. 

If you guess correctly after 2 clues, 3 points. 

If you guess correctly after 3 dues, 2 points. 

If you guess correctly after 4 clues, 1 point. 

If the computer has to show you the correct answer, - 5 points. 

Yotir score is shown at the end of the game. You wiU also see a 
percentage score. 

Mr. President 

Remember, do not t5'pe the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM MR PRESIDENT trera 98 

100 NP=39:CB=828:VC=53248sMC=54272 :rem 151 

105 POKEVC+32,6:POKEVC+33,12:PRINTCHR$(147) rrem 39 
110 PORX=54272TO54296:POKEX,0:NEXTX : rem 173 

120 F1$="{BLU}{RVS} ****** {RED} {27 SPACES} 
{0FF}":F2$="{BLU}{RVS}{2 SPACES}* * * * * 
{2 SPACES} {OFF}" irem 118 

130 P3$="{RED}{RVS}{40 SPACES} {off}" :reni 114 

140 DIM NT%(31) :rem 235 

150 READX$ :IFX$<>"$SONG"THEN150 : rem 81 

160 FORX=0TO31:READZ:NT%(X)=Z:NEXTX trem 12 

170 SM=((PEEK( 53272 )AND240)/16)*1024:CM=55296 

:rem 146 

180 GOSUB700 :rem 176 

200 S%=0:FORX=1TONP:POKECB+X,0:NEXTX:PRINTCHR§(147 
) ; : POKEVC+3 2,12: POKEVC+3 3,1 : rem 6 2 

210 FORX=1TONP:GOSUB800:POKECB+Z,X:NEXTX :rem 155 
300 X=l :rem 89 

305 Y=PEEK{CB+X) :Y=(Y-1)*5 :rem 227 

310 RESTORE: I FY=0THEN3 30 : rem 12 

320 F0RW=1T0Y:READX$:NEXTW :rem 223 

330 F0RW=1T05:READX$:QT$(W-1)=X$:NEXTW :rem 126 
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400 W=0 :reni 88 

405 GOSUB3000 :reni 220 

407 POKEVC+33,1 : rem 81 

408 PRINT" {BLK} {HOME} {23 DOWN} "; SPC( 15 ); "SCORE ="; 
S%; :rem 149 

410 PRINT" {home} {10 DOWN} {2 SPACES } QUESTION #";W+1 

;rem 172 

420 PRINT" {2 D0WN}HE " ;QT$ (W) ? " . { 2 DOWN}" : rem 145 
430 X$=" " : POKE198 , : INPUTX$ : IFX$=QT$ ( 4 ) THEN500 

:rem 213 

435 IFX$="END"THEN600 :rem 196 

440 POKEMC+0 , :P0KEMC+1 , 10 : POKEMC+4 , 17 : POKEMC+5 , 15 
:POKEMC+6,15:POKEMC+24,15 : rem 207 

445 POKEVC+33 , :FORV=1TO100 :NEXTV : POKEMC+4, 16 

:rem 37 

450 POKEMC+24,0:W=W+1 :IFW<=3THEN405 : rem 90 

455 GOSUB3000 : rem 225 

460 POKEVC+33, 1:PRINT"{RED}{H0ME}{13 DOWN} ANSWER 

{ SPACE }= ";QT$(4) iS%=S%-5 :rem 198 

465 PRINT" {BLK} {HOME} {23 DOWN} "; SPC( 15 ); "SCORE ="; 

S%; :rem 152 

470 FORW=lTO2500:NEXTWiGOTO560 :rem 143 

480 GOTO600 :rem 107 

500 S%=S%+4-W :rem 165 

510 POKEMC+0 , : POKEMC+1 , : POKEMC+5 ,15: POKEMC+6 ,15: 

W=20:POKEMC+24,8 : rem 178 

520 F0RV=1 2T01 STEP-1 : POKEVC+3 3 , V : POKEMC+4 , 1 7 

:rem 227 

530 POKEMC+1, W:W=W+5:FORX1=1TO50:NEXTX1 : rem 221 
540 POKEMC+4, 16 :NEXTV : rem 25 

550 POKEMC+24,0 : rem 70 

560 X=X+1:IFX<=NPTHEN305 : rem 227 

600 PRINTCHR$(147);"{BLK}{D0WN}{15 SPACES }{ RVS } TES 
T 0VER1{0FF}" :rem 114 

610 PRINT"{3 D0WN}{2 SPACES}Y0UR SCORE = "?S% 

:rem 86 

620 IFS%<0THENS%=0 : rem 31 

625 X=X-1:IFX<1THENX=1 : rem 107 

630 X=INT{(S%*100)/{X*4)) :rem 36 

640 PRINT" {2 DOWN} {2 SPACES} YOUR GRADE = ";X;" 

{LEFT}%" :rem 80 

650 PRINT"{3 DOWN} {2 SPACES}PLAy AGAIN?" : PRINT" 
{down} {2 SPACES} ENTER {RVS}y{OFF} OR {RVS}N 
{off}" :rem 158 

660 GETX$:IFX$=""THEN660 : rem 137 

670 IPX$="Y"THEN200 : rem 67 

680 IFX$<>"N"THEN660 : rem 128 

690 GOSUB3500:PRINTCHR$(147) :rem 156 

695 END :rem 123 
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700 PRINT" {BLK} {down} {8 SPACES}*** MISTER PRESIDEN ii 
T ***" :rem 135 

705 PRINT"{WHT} {2 D0WN}Y0U WILL BE GIVEN UP TO FOU 
R QUESTIONS {2 SPACES} ABOUT EACH U.S. PRESIDENT 

I rem 132 ^ 

710 PRINT" {2 DOWN} POINTS WILL BE GIVEN DEPENDING U 
PON HOW MANY QUESTIONS YOU NEED:" : rem 177 

715 PRINT"{2 D0WN}{3 SPACES}1 QUESTI0N{2 SPACES}= {_j 
{2 SPACES }4. ": PRINT" {3 SPACES} 2 QUESTIONS = 
{2 SPACES}3." :rera 126 ^ 

720 PRINT"{3 SPACES}3 QUESTIONS ={2 SPACES}2 . " :PRI 

NT"{3 SPACES}4 QUESTIONS ={2 SPACES}1." V 

:rem 171 

725 PRINT" {down} {3 SPACES}ALL MISSED{2 SPACES}= -5 

. " :rem 235 \^ 

728 PRINT"{2 DOWN} TYPE { RVS } END { OFF } TO END THE G 
AME early." :rem 113 

730 GOSUB3500 : rem 226 

785 PRINT" {2 DOWN} {12 SPACES} (PRESS ANY KEY)"; ^ 

:rem 129 

790 GETX$:IFX$=""THEN790 :rem 145 ^ 

795 RETURN :rem 133 ij 

800 W=0 :rem 92 

810 Z=INT( (RND(1)*NP)+1) :IFPEEK(CB+Z)=0THENRETURN o 

:rem 12 

820 W=W+1:IFW<10THEN810 : rem 102 Lj 

830 Z-1 :rem 99 

840 IPPEEK(CB+Z)=0THENRETURN :rem 39 ^ 

850 Z=Z+1:GOTO840 :rem 249 r~j 

1000 DATA"SERVED FROM 1789 TO 1797" :rem 112 

1005 DATA"WAS THE ONLY PRESIDENT ELECTED {7 SPACES} 

UNANIMOUSLY" : rem 58 

1010 DATA"MAY HAVE DIED FROM BEING BLED TO W 

{5 SPACES} DEATH BY LEECHES" :rem 142 

1020 DATA"HAD JOHN ADAMS FOR A VICE-PRESIDENT" , "G 

{space} WASHINGTON" :rem 102 Q 

1030 DATA"WAS THE FIRST TO BE DEFEATED FOR 

{5 SPACES} REELECTION" : rem 163 \_j 

1040 DATA"WAS THE FIRST TO LIVE IN THE WHITE ^ 

{3 SPACES} HOUSE" :rem 199 W 

1050 DATA"ERRONEOUSLY SAID ON HIS DEATHBED, " ■ 

{4 SPACES} 'JEFFERSON STILL LIVES'" :rem 133 ^ 
1055 DATA"SERVED FROM 1797 TO 1801" :rem 107 (, 

1060 DATA" J ADAMS", "WAS THE SECOND PRESIDENT BORN _ 

{SPACE}IN{5 SPACES} VIRGINIA" : rem 156 O 

1070 DATA"BEAT CHARLES PINCKNEY IN A{11 SPACES} REE 

LECTION" :rem 103 O 

1075 DATA"DIED ON AMERICA'S 50TH ANNIVERSARY" 

:rem 157 ^ 
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1080 DATA"SERVED FROM 1801 TO 1809", "T JEFFERSON" 
O :rem 201 

1090 DATA"WAS CALLED THE 'FATHER OF THE {8 SPACES }C 
O ONSTITUTION'" : rem 202 

1100 DATA"HAD BOTH OP HIS VICE-PRESIDENTS DIE 
~ {2 SPACES} IN OFFICE" :rem 253 

1110 DATA"DECIDED TO ENTER THE WAR OF 1812", "SERVE 
' D FROM 1809 TO 1817" :rem 3 

/— \ 1115 DATA" J MADISON" trera 123 

1120 DATA"WAS A STUDENT OF THOMAS JEFFERSON" 

srem 120 

1130 DATA"WAS BOTH SECRETARY OF STATE AND 
^ {6 SPACES} SECRETARY OF WAR" :rem 7 

«^ 1140 DATA"WAS THE FOURTH PRESIDENT BORN IN 

" {5 SPACES} VIRGINIA" :rem 151 

r-^ 1150 DATA"SERVED FROM 1817 TO 1825", "J MONROE" 

:rem 240 

r") 1160 DATA"WAS SECRETARY TO RUSSIA'S U.S. {7 SPACES} 

MINISTER AT AGE 14" : rem 237 

^ 1170 DATA"WON HIS OFFICE THANKS TO HENRY CLAY" 

:rem 198 

1180 DATA"PUBLISHED POETRY" , "SERVED FROM 1825 T018 
29", "Q ADAMS" :rem 134 

1190 DATA"WAS THE 1ST TO EXPERIENCE AN{9 SPACES} AS 
r*[ SASSINATION ATTEMPT" :rem 230 

1200 DATA"WAS THE HERO OF THE BATTLE OF NEW 
1^ {4 SPACES} ORLEANS" :rem 224 

1210 DATA"WAS OUR 7TH PRESIDENT" , "WAS NICKNAMED 'O 
LD HICKORY'", "A JACKSON" :rem 105 

>— . 1220 DATA"RAN TWICE AS A DEMOCRAT, AND ONCE AS A ' 

FREE SOIL' CANDIDATE" :rem 193 

r*\ 1230 DATA"LOST POPULARITY DUE TO THE DEPRESSION 

{3 SPACES} OF 1837" :rem 69 

1240 DATA"WAS VICE-PRESIDENT UNDER ANDREW 

{6 SPACES} JACKSON" :rem 90 

1250 DATA"WAS OUR 8TH PRESIDENT, AND SERVED 

{4 SPACES }FR0M 1837 TO 1841", "M VAN BUREN" 
' I rem 231 

1260 DATA" WAS THE OLDEST MAN EVER TO BE MADE 
{3 SPACES} PRESIDENT, EXCEPT FOR REAGAN" 

:rem 69 

1270 DATA"DIED FROM A COLD CAUGHT DURING HIS 

{3 SPACES } INAUGURAL ADDRESS" :rem 236 

1280 DATA"WAS THE FIRST TO DIE IN OFFICE" :rem 53 
1290 DATA"WAS OUR 9TH PRESIDENT, AND SERVED 
/-^ {4 SPACES} FOR ONLY 31 DAYS","W HARRISON" 

:rem 65 

(*-) 1300 DATA"HAD THE NICKNAME IN OFFICE OF 'OLD 

{3 SPACES} VETO' :rem 55 
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1310 DATA"WAS THE 1ST PRESIDENT IN DANGER OF 

{3 SPACES} IMPEACHMENT" :rem 125 

1320 DATA"WAS THE 1ST PRESIDENT TO TAKE{8 SPACES }0 
FFICE AFTER A PRESIDENT'S DEATH" : rem 43 

1330 DATA"WAS OUR 10TH PRESIDENT, AND SERVED 

{3 SPACESlFROM 1841 TO 1845", "J TYLER":rem 58 

1340 DATA" BEAT HENRY CLAY BY 38,000 VOTES" irem 68 

1350 DATA"ANNEXED TEXAS AND OREGON TO THE U.S" 

:reni 166 

1360 DATA"HAD GEORGE DALLAS AS HIS{13 SPACES}VICE- 
PRESIDENT" :rem 217 

1370 DATA"WAS OUR IITH PRESIDENT, AND SERVED 

{3 SPACES}FR0M 1845 TO 1849", "J POLK":rem 237 

1380 DATA"HAD THE NICKNAME OF 'OLD ROUGH AND 

{3 SPACES } READY ' " :rem 173 

1390 DATA"WAS A 2ND COUSIN OF JAMES MADISON" 

:rem 252 

1400 DATA" DIED FROM EATING TOO MANY CHERRIES" 

:rem 161 

1410 DATA"WAS OUR 12TH PRESIDENT, AND SERVED 
{3 SPACES}FR0M 1849 TO 1850", "Z TAYLOR" 

:rem 154 

1420 DATA" BEGAN HIS CAREER AS AN APPRENTICE 

{4 SPACES IWOOLCARDER" :rem 24 

1430 DATA" SERVED AS MEDIATOR IN A GUANO {8 SPACES }D 

ISPUTE" :rein 72 

1440 DATA"SERVED AS VICE-PRESIDENT TO ZACHARY 

{2 SPACES }TAYL0R" : rem 22 

1450 DATA"WAS OUR 13TH PRESIDENT, AND SERVED 

{3 SPACESlFROM 1850 TO 1853", "M FILLMORE" 

:rem 12 

1460 DATA"WAS A BRIGADIER GENERAL IN THE {7 SPACES} 
MEXICAN WAR" srem 67 

1470 DATA"WAS THE YOUNGEST U.S. SENATOR AT AGE 33" 

:rem 92 

1480 DATA"HAD WILLIAM R. KING AS HIS{11 SPACES}VIC 
E-PRESIDENT" :rem 42 

1490 DATA"WAS OUR 14TH PRESIDENT, AND SERVED 
{3 SPACES}FR0M 1853 TO 1857", "P PIERCE" 

:rem 111 

1500 DATA"OPPOSED FREEING THE SLAVES BECAUSE 

{3 SPACES }THEY WOULD TAKE OVER THE SOUTH" 

:rem 127 

1510 DATA"TRIED 3 TIMES BEFORE FINALLY BEING 

{3 SPACES} NOMINATED AS PRESIDENT" :rem 90 

1520 DATA"WAS OUR 15TH PRESIDENT, AND SERVED 

{3 SPACES}FR0M 1857 TO 1861" :rem 251 

1530 DATA"WAS OUR ONLY BACHELOR PRESIDENT" , "J BUCK 
ANAN" :rem 50 
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DATA "BEAT STEPHEN DOUGLAS IN A FAMOUS 
{5 spaces} SENATORIAL RACE" :rem 26 

DATA"WAS THE 1ST PRESIDENT TO BE{10 SPACES} AS 
SASSINATED" :rem 40 

DATA"WAS OUR 16TH PRESIDENT, AND SERVED 
{3 SPACES }FROM 1861 TO 1865" s rem 255 

DATA "WAS KNOWN AS THE 'GREAT EMANCIPATOR '", "A 
LINCOLN" :rem 204 

DATA"WAS A SOUTHERN SENATOR WITH NORTHERN LOY 
ALTIES DURING THE CIVIL WAR" : rem 89 

DATA"WAS OUR 17TH PRESIDENT, AND SERVED 
{3 SPACES}FR0M 1865 TO 1869" :rem 11 

DATA"WAS VICE-PRESIDENT UNDER LINCOLN" 

:rem 159 

DATA"WAS IMPEACHED AND ACQUITTED" , "A JOHNSON" 

;rem 216 

DATA"WAS A TEETOTALER, BUT SMOKED 20 

{6 SPACES} CIGARS EACH DAY" :rem 48 

DATA"WAS HELPED TO ELECTION BY THE NEWLY 

{2 SPACES] FREED SLAVES" :rem 250 

DATA "WAS KNOWN AS AMERICA'S GREATEST WAR 

[2 SPACES }HERO" :rem 24 

DATA"WAS OUR 18TH PRESIDENT, AND SERVED 

{3 SPACESlFROM 1869 TO 1877", "U GRANT":rem 77 

DATA"HAD A WIFE WITH THE NICKNAME OP 

{6 SPACES }' LEMONADE LUCY'" :rem 44 

DATA"WON THE PRESIDENCY WITH 250,000 VOTES 

{3 SPACES}LESS than HIS OPPONENT" : rem 208 

DATA"WON THE PRESIDENCY BY 1 ELECTORAL 

{4 SPACES} VOTE" : rem 157 

DATA"WAS OUR 19TH PRESIDENT, AND SERVED 

{3 SPACEsjpROM 1877 TO 1881", "R HAYES":rem 71 

DATA"WAS A FORMER LAY MINISTER AND {8 SPACES }E 

VANGELIST" :rem 51 

DATA"WAS OPPOSED TO WAR OR SLAVERY BECAUSE 

{3 SPACES joF HIS RELIGION" :rem 74 

DATA"WAS THE 2ND PRESIDENT TO BE{10 SPACES}AS 

SASSINATED" :rem 19 

DATA"WAS OUR 20TH PRESIDENT, AND SERVED 

{3 SPACES}DURING 1881", "J GARFIELD" irera 17 

DATA "WAS FROM VERMONT, BUT MAY HAVE BEEN 

{2 SPACES} BORN IN CANADA" : rem 16 

DATA"HAD NO VICE-PRESIDENT" : rem 151 

DATA"WAS VICE-PRESIDENT TO JOHN GARFIELD" 

:rem 41 

DATA"WAS OUR 21ST PRESIDENT, AND SERVED 
{3 SPACES }FR0M 1881 TO 1885", "C ARTHUR" 

:rem 150 

DATA "WAS A BACHELOR WHEN ELECTED, BUT 

{5 SPACES} MARRIED WHILE IN OFFICE" :rem 153 
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1790 DATA"SAID 'I HAVE TRIED SO HARD TO DO 

{5 SPACES }riGHT ■ " :rem 248 

1800 DATA"SERVED FROM 1885 TO 1889 AND PROM 

{4 SPACES 11893 TO 1897" :rein 207 

1810 DATA"WAS BOTH OUR 22ND AND 24TH PRESIDENT" , "G 
CLEVELAND" :reni 244 

1820 DATA"HAD LEVI P. MORTON AS HIS {12 SPACES} VICE 

-PRESIDENT" :rem 253 

1830 DATA"HAD A GRANDFATHER WHO HAD BEEN{7 SPACES} 

PRESIDENT BEFORE HIM" :rem 114 

1840 DATA"DEFEATED GROVER CLEVELAND AND WAS 

{4 SPACES} DEFEATED BY HIM" :rem 41 

1850 DATA"WAS OUR 23RD PRESIDENT, AND SERVED 

{3 SPACESlPROM 1889 TO 1893", "B HARRISON" 

:rem 28 

1860 DATA"TWICE DEFEATED WILLIAM JENNINGS BRYAN 

{3 SPACES}F0R THE PRESIDENCY" : rem 128 

1870 DATA"SERVED 6 TERMS IN THE HOUSE 0F{7 SPACES} 

REPRESENTATIVES" :rem 205 

1880 DATA"WAS OUR 25TH PRESIDENT, AND SERVED 

{3 SPACES }FR0M 1897 TO 1901" :reni 4 

1890 DATA"WAS ASSASSINATED BY ANARCHIST LEON 

{3 SPACES } CZOLGOSZ ", "W MCKINLEY" :rem 162 

1900 DATA"BECAME PRESIDENT AFTER MCKINLEY'S 

{4 SPACES }ASSASSINATI0N" :rem 155 

1910 DATA"WAS OUR 26TH PRESIDENT, AND SERVED 

{3 spaces} FROM 1901 TO 1909" :rem 249 

1920 DATA"WAS THE FOUNDER OF THE NATIONAL PARK SYS 

TEM" :rem 232 

1930 DATA"ORGANIZED THE 'ROUGH RIDERS' ","T ROOSEVE 

LT" :rem 210 

1940 DATA"WAS SECRETARY OF WAR UNDER TEDDY 

{5 SPACES} ROOSEVELT" :rem 3 

1950 DATA"BECAME CHIEF JUSTICE OF THE SUPREME 

[2 SPACES}COURT AFTER BEING PRESIDENT" 

:rem 233 

1960 DATA"WAS OUR 27TH PRESIDENT, AND SERVED 

{3 SPACES} FROM 1909 TO 1913" jrem 2 

1970 DATA"WAS OUR FATTEST PRESIDENT, WEIGHING 

{2 SPACES} 325 POUNDS WHEN ELECTED" :reni 242 
1980 DATA"W TAPT" :rem 182 

1985 DATA"CALLED RACIAL SEGREGATION 'NOT {7 SPACES} 

HUMILIATING BUT A BENEFIT'" : rem 97 

1990 DATA"USED THE REELECTION SLOGAN 'HE KEPT 

{2 SPACES} US OUT OF WAR'" trem 31 

2000 DATA"WAS OUR 28TH PRESIDENT, AND SERVED 

{3 SPACES} FROM 1913 TO 1921" :rem 239 

2010 DATA" IS OFTEN ASSOCIATED WITH THE LEAGUE 

{2 SPACES}OF NATIONS", "W WILSON" :reni 61 
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2020 DATA"SAID 'I AM NOT FIT FOR THIS OFFICE 

{3 spaces! AND NEVER SHOULD HAVE BEEN HERE'" 

:rem 139 

2030 DATA" WAS OUR 29TH PRESIDENT, AND SERVED 

{3 SPACES }FR0M 1921 TO 1923" :rem 244 

2040 DATA"DIED AMIDST CORRUPTION AND MAY HAVE 

{2 SPACESlBEEN POISONED" :rem 106 

2050 DATA"WAS LINKED WITH THE TEAPOT DOME 

{6 SPACES } SCANDAL "W HARDING" :rein 144 

2060 DATA" WAS FAMOUS FOR BREAKING BOSTON'S 

{5 SPACES} POLICE STRIKE" :rem 227 

2070 DATA"WAS OUR 30TH PRESIDENT, AND SERVED 

{3 SPACES}FR0M 1923 TO 1929" :rera 248 

2080 DATA"WAS 'WEANED ON A PICKLE, ' ACCORDING 

{2 SPACES} TO ALICE LONGWORTH" : rem 38 

2090 DATA"WAS KNOWN AS 'SILENT CAL'","C COOLIDGE" 

:rem 27 

2100 DATA"LATER WORKED UNDER PRESIDENTS TRUMAN AND 
EISENHOWER" :rem 135 

2110 DATA"WAS A MINING ENGINEER BEFORE ENTERING 

{3 SPACES} POLITICS" :reni 211 

2120 DATA"WAS OUR 31ST PRESIDENT, AND SERVED 

{3 SPACES}FROM 1929 TO 1933" :rem 1 

2130 DATA"LOST HIS REELECTION BID BECAUSE OF 

{3 SPACES }THE GREAT DEPRESSION" , "H HOOVER" 

;rem 107 

2140 DATA"WAS OUR 32ND PRESIDENT, BEGINNING 

{4 SPACES}HIS term in 1933" :rem 235 

2150 DATA"IS CREDITED WITH SAVING AMERICA PROM THE 
GREAT DEPRESSION" :rem 128 

2160 DATA"WAS PRESIDENT DURING MOST OF WORLD 

{3 SPACES }WAR II" :rem 101 

2170 DATA"SERVED BEFORE PRESIDENTS WERE{8 SPACES }A 

LLOWED ONLY TWO TERMS" :rem 167 

2175 DATA"F ROOSEVELT" : rem 54 

2180 DATA"WAS THE ONLY 20TH CENTURY PRESIDENT 

{2 SPACES }WHO NEVER WENT TO COLLEGE" : rem 87 

2190 DATA"WAS OUR 33RD PRESIDENT, AND SERVED 

{3 SPACES}FR0M 1945 TO 1953" rrern 249 

2200 DATA"WAS A HABERDASHER BEFORE ENTERING 

(4 SPACES} POLITICS" : rem 221 

2210 DATA"WAS PRESIDENT WHEN ATOMIC BOMBS WERE DRO 

PPED ON JAPAN", "H TRUMAN" s rem 245 

2220 DATA"WAS WANTED BY BOTH PARTIES AS A 

{6 SPACES} PRESIDENTIAL CANDIDATE" : rem 136 
2230 DATA"PLAYED FOOTBALL FOR WEST POINT" :rem 235 
2240 DATA"WAS OUR 34TH PRESIDENT, AND SERVED 

{3 SPACES }FR0M 1953 TO 1961" :rem 250 
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2250 DATA"WAS THE ONLY PRESIDENT TO BE A{7 SPACES} 

5-STAR GENERAL", "D EISENHOWER" trem 149 

2260 DATA"LIVED A SHORTER LIFE THAN ANY OTHER 

{2 SPACES} PRESIDENT" :rem 103 

2270 DATA"WAS THE YOUNGEST MAN EVER ELECTED 

{4 SPACES} PRESIDENT" :rem 37 

2280 DATA"MAY HAVE BEEN ELECTED BECAUSE HE 

{5 SPACES }LOOKED GOOD ON T.V" :rera 38 

2290 DATA"WAS OUR 35TH PRESIDENT, AND SERVED 

I3 SPACES}FR0M 1961 TO 1963", "J KENNEDY" 

:rem 201 

2300 DATA"BECAME SENATE DEMOCRAT LEADER DURING HIS 
1ST SENATE TERM" :rem 249 

2310 DATA"WAS PRESIDENT DURING THE VIETNAM WAR ESC 

ALATION" :rem 72 

2320 DATA"WAS OUR 36TH PRESIDENT, AND SERVED 

{3 SPACES} FROM 1963 TO 1969" : rem 4 

2330 DATA"WAS KNOWN FOR THE 'GREAT SOCIETY' ","L JO 

HNSON" :rem 34 

2340 DATA"WAS PRESIDENT WHEN THE VOTING AGE WAS 

{3 SPACES} LOWERED TO 18" irem 128 

2350 DATA"WAS PRESIDENT WHEN MAN SET FOOT ON 

{3 SPACES }THE MOON" :rem 170 

2360 DATA"WAS OUR 37TH PRESIDENT, AND SERVED 

{3 SPACES}FROM 1969 TO 1974" :rem 11 

2370 DATA"WAS THE ONLY PRESIDENT TO RESIGN IN 

{2 SPACES }THE MIDDLE OF A TERM","R NIXON" 

:rem 212 

2380 DATA"WAS BORN WITH THE NAME OF LESLIE 

{5 SPACES }LYNCH KING, JR" :rem 71 

2390 DATA"WAS NEVER ELECTED PRESIDENT 0R{7 SPACES} 

VICE-PRESIDENT" :rem 222 

2400 DATA"WAS A MALE MODEL AND FOOTBALL PLAYER BEF 

ORE ENTERING POLITICS" irem 73 

2410 DATA"WAS OUR 38TH PRESIDENT, AND SERVED FROM 

{SPACE}1974 TO 1977", "G FORD" :rem 233 

2420 DATA"MAY HAVE LOST HIS REELECTION DUE TO 

{2 SPACES} PROBLEMS IN THE MIDDLE EAST" 

:reni 122 

2430 DATA"WAS PRESIDENT DURING THE IRAN HOSTAGE 

{3 SPACES }CRISIS" :rem 108 

2440 DATA"WAS OUR 39TH PRESIDENT, AND SERVED 

{3 SPACES }FR0M 1977 TO 1981" trem 9 

2450 DATA"WAS A PEANUT FARMER, AND HAD ABROTHER 

{3 SPACES }NAMED BILLY", "J CARTER" s rem 94 

2460 DATA" STARTED HIS CAREER AS AN ILLINOIS 

{4 SPACES} LIFE-GUARD" : rem 29 

2470 DATA"WAS THE 1ST PRESIDENT TO HAVE BEEN 

{3 SPACES} DIVORCED" :rem 174 
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2480 DATA"RAN ON A PLATFORM OF 'NEWll2 SPACES }FEDE 
RALISM'" :rem 249 

2490 DATA"WAS OUR 40TH PRESIDENT, AND TOOK 

{5 SPACES}OFFICE IN 1981", "R REAGAN" : rem 126 

2899 DATA"$SONG" : rem 149 

O 2900 DATA4817, 6430, 6430, 7217, 8101, 6430, 8101, 7217, 4 

— . 817,6430 :rem 131 

2910 DATA6430, 7217, 8101, 6430, 0,6069, 4817, 6430, 6430 
/-s ,7217,8101 :rem 225 

' 2920 DATA8583, 8101, 7217, 6430, 6069, 4817, 5407, 6069, 6 

r*l 430,0,6430 :rem 247 

3000 PRINTCHR$(147) ; :F0RX1=1T04 :rem 104 

^ 3010 PRINTFl$;F2?:NEXTXl:F4$=LEPT$(F3$,41):rem 168 

^ 3020 PRINTF1$;"{13 DOWN} "; F3$ ;" {DOWN} " ;F4$ ;" {OFF} " 

I' ; :rem 214 

^ 3030 POKESM+999,160:POKECM+999,2 :rem 91 

3040 RETURN : rem 167 

r*\ 3500 POKEMC+0,0:POKEMC+1,0:POKEMC+5,79:POKEMC+6,12 

9:POKEMC+24,15 s rem 34 

O 3510 FORX1=0TO31 :X2=INT(NT%(Xl)/256) : rem 87 

3520 POKEMC+0,NT%(X1)-(X2*256) : rem 128 

3530 P0KEMC+1,X2 :P0KEMC+4, 17 :rem 136 

— > 3540 FORX2=1TO150:NEXTX2:POKEMC+4,16 : rem 210 

3550 FORX2=1TO20:NEXTX2,X1 :rem 105 

3560 POKEMC+24,0 :rem 122 

3570 RETURN :rem 175 
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Level ^ 

iJ 
LJ 

Skill area: Social Studies 

Level: 4 ^ 
Equipment required: None . ~. 

Modification: Yes ^ 

W 

People of the Past ^ 

"Movers and Shakers" is a question-and-answer game designed 
to acquaint you with the heroes and villains of world history. You 
will be asked up to three questions about selected men and 
women of history. Points are determined by the number of ques- Cj 
tions you need to identify a particular character. 
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How to Play 

This game is divided into eight categories: 

A. World Leaders 

B. Artists and Thinkers 

C. Famous Women 

D. American Heroes 

E. Villains and Outlaws ^ 

F. Scientists 

G. Religious Leaders 

H. Random Selections ^ 
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There are 63 historical characters, but they may appear in 

more than one category. For example, Adolph Hitler would ap- lj 
pear in Category A, but he would also appear in Category E. All 
characters are included in Category H. 

To choose a category, type the letter of the category you wish 
to play. Wait ten seconds for the data to load and the game to 
begin. 

You will be asked three questions about each character. Since ^ 

the computer will count misspellings as incorrect answers, here Cj 
are the correctly spelled names of the characters: 
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Alexander the Great 
Ethan Allen 
Thomas Aquinas 
AttUatheHun 
Aristotle 
Benedict Arnold 
Qara Barton 
Ludwig van Beethoven 
Alexander Graham Bell 
Napoleon Bonaparte 
John Wilkes Booth 
Johannes Brahms 
Caligula 
John Calvin 

George Washington Carver 
Catherine n 
Frederic Chopin 
Qeopatra 
Marie Curie 
Benjamin Disraeli 
Mary Baker Eddy 
Thomas Edison 
Albert Einstein 
Enrico Fermi 
Henry Ford 
Benjamin Franklin 
Sigmimd Freud 
Mohandas Gandhi 
Paul Gauguin 
Johann von Goethe 
Alexander Hamilton 
King Henry VIII 

You can qtdt playing an5^ime by entering END as an answer. 
Your percentage score will not be affected if you quit before all 
questions have been asked. 

Scoring 

Points are awarded as follows: 
3 points if the correct answer is given after 1 clue. 
2 points if the correct answer is given after 2 clues. 
1 point if the correct answer is given after 3 clues. 



Adolph Hitler 
Edward Jenner 
John Paul Jones 
Carl Jung 

Martin Luther King 
Robert E. Lee 
Nikolai Lenin 
Louis XIV 
Martin Luther 
Guglielmo Marconi 
Karl Marx 
Wolfgang Mozart 
Benito Mussolini 
Sir Issac Newton 
Friedrich Nietzsche 
Florence Nightingale 
Louis Pasteur 
Eva Peron 
Pablo Picasso 
Plato 

Grigori Rasputin 
Rembrandt van Rijn 
Peter Paul Rubens 
Socrates 

Petr Tchaikovsky 
Mao Tse-Tung 
Wicent van Gogh 
Pancho Villa 
Booker T. Washington 
Duke of Wellington 
Brigham Young 
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Leve! ^ 
If all questions are missed, 3 points will be deducted from the LJ 



score. 
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At the end of the game, you'll be shown your total number of 
points, as well as your percentage score. 

Movers and Shakers 

Remember, do not type the checksum number at the end of each line. For example, do 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in 

Appendix E. [_J 

1 REM MOVERS AND SHAKERS :reni 213 

100 NS=63:CB=828 : rem 118 

103 DIM QT$(24,3),NT%(21,1) :rem 81 

105 VC=53248:POKEVC+32,6:POKEVC+33,15:PRINTCHR$(14 

7) :rem 64 LJ 

110 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX : rem 68 
120 READX$:IFX$<>"$"THEN120 :rem 20 W 

130 FORX=0TO21:FORY=0TO1:READZ:NT%(X,Y)=Z:NEXTY,X r_j 

:rem 205 

200 GOSUB700 srem 169 

205 GOSUB1000:S%=0:FORX=1TONE:POKECB+X,0:NEXTX 

srem 178 LJ 
210 FORX=lTONE:GOSUB800sPOKECB+Z,X:NEXTX :rem 144 
300 X=l :rera 89 LJ 

310 Y=PEEK(CB+X)-1 : rem 6 

340 FORW=0TO2:RS(W)=0:NEXTW srem 219 

350 F0RW=1T03 srem 26 

360 V=INT(RND(1)*3) sIFRS(V)<>0THEN360 srem 178 

370 RS(V)=W:NEXTW srem 74 LJ 

400 W=0 srem 88 

405 PRINTCHR$(147);"{BLK}{23 DOWN} "; SPC( 15 ); "SCORE LJ 
=";S%; srem 168 ■ 

410 PRINT" {home} {2 D0WN}{3 SPACES} QUESTION #";W+1 ^ 

srem 36 

420 X$=QT$(Y,RS(W) ) srem 59 

430 PRINT" {3 D0WN}";X$;".{3 DOWN}" srem 50 \_j 

440 GOSUB900sIFX$="Q"THEN500 srem 12 

445 IFX$="END"THEN600 srem 197 LJ 

450 W=W+1 sIPW<=2THEN405 srem 115 

480 PRINT"{RED}{2 D0WN}{3 SPACES }" ;QT$ (Y, 0) sS%=S%- ^ 

3 srem 124 

490 FORW=lTO2500sNEXTW srem 131 

495 X=X+l5lFX<=NETHEN310 srem 219 \^ 

498 GOTO600 srem 116 

500 REM *** CORRECT ANSWER *** srem 87 CJ 

510 S%=S%+(3-W) srem 246 

520 POKEMC+0,0sPOKEMC+l,0sPOKEMC+5,15sPOKEMC+6,15$ LJ 

POKEMC+24,9 srem 132 

530 F0RY=5T015 srem 83 
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540 POKEVC+33,Y:POKEMC+l,Y*3:POKEMC+4,33 :rem 152 
550 FORZ=1TO50:NEXTZ :rem 36 

560 POKEMC+4 , 32 : F0RZ=1 TO30 : NEXTZ , Y : POKEMC+24 , 

:rem H9 

570 X=X+1 :IFX<=NETHEN310 : rem 213 

600 PRINT" {BLK}{CLR} {down} {15 SPACES} {RVS}TEST OVE 
R1{0FF}" :rem 220 

610 PRINT" {3 DOWN} {4 SPACES} YOUR SCORE = ";S% 

:rein 86 

620 IFS%<0THENS%=0 : rem 31 

625 X=X-1:IFX<1THENX=1 :rem 107 

630 X=INT((S%*100)/(X*3)) :rem 35 

640 PRINT" {down} {4 SPACES}Y0UR GRADE = ";X;"{LEFT} 

%" :rem 63 

650 PRINT"{3 D0WN}{4 SPACES}PLAY AGAIN?" : PRINT" 

{down} {4 SPACES} ENTER {RVS}y{OFF} OR {RVS}N 

{off}" :rem 158 

660 GETX$:IFX$=""THEN660 :rem 137 

670 IFX$="Y"THEN205 : rem 72 

680 IFX$<>"N"THEN660 : rem 128 

690 GOSUB2000:PRINTCHR$(147) :rem 150 

695 END :rem 123 

700 PRINT "{BLK} {DOWN} {RVS}{9 SPACES } MOVERS AND SH 

AKERS{11 SPACES} {off}" : rem 109 

705 PRINT" {2 DOWN} YOU WILL BE ASKED UP TO 3 QUEST 
IONS" :rera 249 

706 PRINT" ABOUT SELECTED FAMOUS PEOPLE." : rem 240 
710 PRINT" {2 DOWN} POINTS WILL BE AWARDED BASED UP 

ON H0W{3 SPACES }MANY QUESTIONS YOU NEED:" 

:rem 1 

715 PRINT"{2 DOWN} {3 SPACES}1 QUESTI0N{2 SPACES}= 
{2 SPACES } 3. ": PRINT" {3 SPACES} 2 QUESTIONS = 
{2 SPACES} 2." :rera 124 

720 PRINT"{3 SPACES}3 QUESTIONS ={2 SPACEsjl." 

;rem 4 

725 PRINT"{3 SPACES}ALL MISSED{2 SPACES}= -3." 

:rem 216 

730 PRINT" {2 DOWN} TYPE { RVS } END { OFF } TO STOP THE 

{space} GAME EARLY." :rem 217 

740 GOSUB2000 :rem 221 

785 PRINT" {down} {8 SPACES } (PRESS ANY KEY TO START) 

:rera 102 

790 GETX?:IFX$=""THEN790 :rem 145 

795 RETURN : rem 133 

800 W=0 :rem 92 

810 Z=INT((RND(1)*NE)+1) : IFPEEK(CB+Z )=0THENRETURN 

:rem 1 

820 W=W+1:IFW<9THEN810 : rem 62 

830 Z=l :rem 99 
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835 IFPEEK(CB+Z)=0THENRETURN : rem 43 

840 Z=Z+1 :GOT0835 :rem 252 

900 X$="":POKE198,0: INPUT" " ;X$ : IFX$=QT$ (Y, 0)THENX 
$="Q": RETURN rrem 42 

905 IFX'f="END"THENRETURN :rem 16 

910 POKEVC+3 3,0: POKEMC+0 , : POKEMC+1 , 10 : POKEMC+4 , 3 3 
:POKEMC+5,15 trem 182 

920 POKEMC+6,15:POKEMC+24,9 :rera 60 

930 FORZ=1TO200:NEXTZ: POKEMC+4, 32 :rem 60 

940 FORZ=lTO30:NEXTZ:POKEMC+24,0 :reni 11 

950 IPW<>2THENPRINTCHR$(147) :rera 218 

960 POKEVC+3 3, 15 :rem 138 

970 RETURN : rem 128 

1000 PRINT"{CLR}{2 DOWN} {2 SPACES}ENTER DESIRED CA 
TEG0RY:{2 DOWN} ": PRINT" {RVS}a{0FF} - WORLD L 
EADERS" :rem 36 

1010 PRINT" {DOWN} {RVS}b{OFF} - ARTISTS AND THINKE 
RS": PRINT "{down} {RVS}C{0FF} - FAMOUS WOMEN" 

:rem 157 

1020 PRINT"{D0WN} {RVS}d{OFF} - AMERICAN HEROES":? 
RINT"{D0WN} {RVS}e{0FP} - VILLAINS AND 
{SHIFT-SPACE}0UTLAWS" :rem 246 

1030 PRINT" {down} {RVS}f{0FF} - SCIENTISTS AND THI 
NKERS":PRINT"{D0WN} {RVS}G{0FF} - RELIGIOUS L 
EADERS" :reni 232 

1040 PRINT" {DOWN} {RVS}h{0FF} - RANDOM SELECTIONS" 

:rem 122 

1050 GETX$ :IFX$=""THEN1050 : rem 221 

1060 IFX$<"A"ORX$>"H"THEN1050 :rem 111 

1070 RESTORE :NE=0:IFX$="H"GOTO1200 :rem 48 

1080 READA$ :X=LEN(A$) :Y=1:IFA$="$"THENRETURN 

:rem 145 

1090 IFX$=MID$(A$,Y,1)THEN1130 :rein 156 

1100 Y=Y+1:IFY<=XTHEN1090 :rem 249 

1120 FORX=1TO4:READA$:NEXTX:GOTO1080 : rem 16 

1130 FORX=0TO3 : READA$ : QT$ ( NE , X ) =A$ : NEXTX : NE=NE+1 : G 
OTO1080 :rem 21 

1200 X=INT ( RND ( 1 ) * (NS-19 ) ) :X=X*5 : IFX=0THEN1220 

:rem 181 

1210 FORy=lTOX:READA$:NEXTY :rem 250 

1220 FORX=0TO19 :READA$ :FORY=0TO3 :READA$ :QT$ (X,Y)=A 

$:NEXTY,X:NE=20: RETURN : rem 96 

2000 REM *** PLAY SONG *** : rem 15 

2010 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 1 2 

9:POKEMC+24,15 :rem 29 

2020 FORX=0TO21 : rem 118 

2030 Y=INT(NT%(X,0)/256) :rem 47 

2040 POKEMC+0, NT%(X,0)-(Y*256) :rem 118 

2050 POKEMC+1, Y: POKEMC+4, 17 :rem 83 
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FORY=1TONT%(X,1)*100:NEXTY : rem 115 

POKEMC+4 , 16 : FORY=1TO30 :NEXTY, X : POKEMC+24 , 

:rein 164 

RETURN :rem 170 

DATAB, "SIGMUND FREUD" : rem 28 

DATA"HE WAS THE FATHER OF PSYCHOANALYSIS, 

{4 SPACESlBORN IN 1856" :rem 204 

DATA"THE NAZIS BURNED HIS BOOKS AND CALLED 

{3 SPACES }THEM 'JEWISH PORNOGRAPHY'" :rem 194 

DATA "HE COINED THE TERMS ID, EGO, AND 

{8 SPACES} SUPEREGO" :rem 204 

DATAB, "CARL JUNG" : rem 233 

DATA"BORN IN 1875, HE CREATED ANALYTICAL 

{5 SPACES} PSYCHOLOGY" :rem 103 

DATA"HE WAS KNOWN AS 'THE SAGE OF ZURICH'" 

:reni 121 

DATA"HE BELIEVED ALL PEOPLE WERE INTROVERTS 
{2 SPACES }0R EXTROVERTS" :reni 173 

DATACF, "MARIE CURIE" : rem 196 

DATA "SHE AND HER HUSBAND DISCOVERED POLONIUM 
{space} AND RADIUM" : rem 177 

DATA "SHE WAS THE FIRST WOMAN TO RECEIVE THE 
{2 SPACES} NOBEL PRIZE" : rem 89 

DATA"BORN IN 1867, SHE DIED OF LEUKEMIA 
{6 SPACES}CAUSED BY WORKING WITH RADIUM" 

:rem 52 

DAT AF, "ALBERT EINSTEIN" : rem 175 

DATA"BORN IN 1879, HE WAS CONSIDERED RETARDED 
BY HIS PARENTS" : rem 49 

DATA"HE DEVELOPED THE 'THEORY OF RELATIVITY'" 

:rem 247 

DATA"ONE OF HISTORY'S GREATEST THINKERS, HE 
{2 SPACES} REVOLUTIONIZED PHYSICS" :rem 48 

DATAF, "GUGLIELMO MARCONI" : rem 72 

DATA"HIS ATTIC IN ITALY WAS THE WORLD'S FIRST 
RADIO STATION" : rem 131 

DATA"BORN IN 1874, HE HAD INVENTED A WIRELESS 
TRANSMITTER BY THE AGE OF 21" : rem 246 

DATA"HIS INVENTION SHOWED ITS IMPORTANCE WHEN 
THE TITANIC SANK" ;rem 193 

DATAF, "SIR ISAAC NEWTON" trem 191 

DATA"BORN IN 1642, HE WAS THE DISCOVERER OF 
{2 SPACES} GRAVITY" : rem 239 

DATA"HE WAS A BRITISH MATHEMATICIAN AND 
{6 SPACES }ASTRONOMER" :rem 133 

DATA"HIS CONCEPT OF AN ORDERLY UNIVERSE 
{6 SPACES} INFLUENCED MEN FOR CENTURIES" 

:rem 34 

DATAB, "KARL MARX" : rem 247 
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3250 DATA"HE CALLED RELIGION 'THE OPIUM OF THE 

{4 SPACES} MASSES'" : rem 174 

3260 DATA"HE WROTE 'DAS KAPITAL' AND NEW YORK 

{5 spaces} DAILY TRIBUNE EDITORIALS" : rem 241 

3270 DATA"HE WROTE THE 'COMMUNIST MANIFESTO' 

{6 SPACES} WHILE {2 SPACES }LIVING IN PARIS" 

:rem 52 

3280 DATAB, "PRIEDRICH NIETZSCHE" : rem 214 

3290 DATA"THOUGH ASSOCIATED WITH NAZISM, HE HATED 

{SPACE}THE NAZI IDEAL" :rem 122 

3300 DATA"THE FATHER OF THE 'SUPERMAN' THEORY, HE 

{space} EVENTUALLY WENT INSANE" :rem 135 

3310 DATA"HIS GREATEST WORK WAS 'THUS SPAKE' 

{7 SPACES }ZARATHUSTRA" : rem 245 

3320 DATADF, "ALEXANDER GRAHAM BELL" :rem 63 

3330 DATA"HE WAS THE INVENTOR OF THE TELEPHONE" 

:rem 15 

3340 DATA"HE TAUGHT HELEN KELLER TO SPEAK": rem 196 
3350 DATA"HIS FATHER INVENTED 'VISIBLE SPEECH' 

{4 SPACES} COMMUNICATION FOR THE DEAF": rem 230 
3360 DATAF, "ENRICO FERMI" :rem 207 

3370 DATA"HE STUDIED THE EFFECT OF SLOW NEUTRONS 

{2 SPACES }0N NUCLEAR REACTIONS" :rem 255 

3380 DATA"SOME CONSIDER HIM TO BE THE FATHER OP 

{3 SPACES} THE ATOMIC BOMB" :rem 173 

3390 DATA"HE ACHIEVED THE FIRST SELF-SUSTAINING 

{3 SPACES} NUCLEAR REACTION" :rem 23 

3400 DATAF, "EDWARD JENNER" : rem 16 

3410 DATA"HE DEVELOPED VACCINATIONS" : rem 205 

3420 DATA"HE HELPED TO ERADICATE SMALLPOX ": rem 251 
3430 DATA"HIS STUDIES OF THE CUCKOO HAVE BENEFITED 

ORNITHOLOGY" :rem 111 

3440 DATAD, "ROBERT E. LEE" :rem 176 

3450 DATA"HE OPPOSED SLAVERY AND WAR, BUT LED THE 

{space} CONFEDERATE ARMY" :rem 218 

3460 DATA"HIS APPOMATTOX SURRENDER ENDED THE CIVIL 

WAR" :rem 120 

3470 DATA"HE WAS ASKED BY ABE LINCOLN TO LEAD THE 

{ SPACE }UNION ARMY" :rem 218 

3480 DATAF, "LOUIS PASTEUR" : rem 79 

3490 DATA"HE PROVED DISEASE IS CAUSED BY BACTERIA" 

:rem 176 

3500 DATA"HIS FERMENTATION WORK SAVED FRANCE'S 

{4 SPACES}BEER AND SILK INDUSTRIES" :rera 163 
3510 DATA"HE INVENTED PASTEURIZATION" : rem 83 

3520 DATAB, "PAUL GAUGUIN" :rem 216 

3530 DATA"VAN GOGH LIVED WITH HIM IN PRANCE'S 

{5 SPACES} 'YELLOW HOUSE'" :rem 47 

3540 DATA"HE IS FAMOUS FOR HIS PAINTINGS OF 

{7 SPACES} PRIMITIVE POLYNESIAN LIFE" :rem 6 
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DATA"HE LEFT HIS FAMILY TO END HIS LIFE IN 
{3 SPACES} THE SOUTH SEAS" :rem 62 

DATAB, "VINCENT VAN GOGH" : rem 187 

DATA" 'THE POTATO EATERS' IS ONE OF HIS MOST 
{2 SPACES} FAMOUS WORKS" trem 146 

DATA "ONLY ONE OF HIS PAINTINGS SOLD DURING 
{3 SPACES}HIS LIFETIME" :rein 166 

DATA "HE CUT OFF HIS EAR FOR JEALOUSY OF 
{6 SPACES }GAUGUIN" : rem 55 

DATAB, "PABLO PICASSO" : rem 21 

DATA"HIS FATHER STOPPED PAINTING WHEN HE SAW 
{SPACE}HIS SON'S TALENT" :rem 255 

DATA"HE SIGNED HIS ART WITH HIS MOTHER'S 
{5 SPACES}MAIDEN NAME" :rem 115 

DATA"HE FOUNDED THE CUBIST MOVEMENT IN ART" 

:rera 80 

DATAB, "REMBRANDT VAN RIJN" : rem 80 

DATA" ' THE NIGHT WATCH ' IS HIS MOST FAMOUS 
{4 SPACES} PAINTING" :rem 52 

DATA"HE WAS A FAMOUS DUTCH PORTRAIT PAINTER" 

I rem 177 

DATA"HIS PAINTINGS ARE UNEXCELLED IN THEIR 
{3 SPACES} TREATMENT OF LIGHT" : rem 84 

DATAB, "JOHANNES BRAHMS" : rem 176 

DATA"HE BEGAN HIS CAREER PLAYING PIANO IN 
{4 SPACES} RED-LIGHT DISTRICT BARS" :rem 224 
DATA"WHILE IN AUSTRIA, HE COMPOSED THE 
{7 SPACES} 'GERMAN REQUIEM'" : rem 101 

DATA"HIS MOST FAMOUS WORK IS A LULLABY" 

:rem 80 

DATAB, "FREDERIC CHOPIN" : rem 157 

DATA"HE WAS POLAND'S MUSICAL PRODIGY" :rem 7 
DATA"HIS 'DEATH MARCH' IS A FAMILIAR REFRAIN 
{space} OF DOOM" :rem 28 

DATA"HIS MUSIC INFLUENCED LISZT, WAGNER AND 
{2 SPACES} DEBUSSY" :rem 231 

DATAB, "WOLFGANG MOZART" :rem 206 

DATA"HE WROTE MORE THAN 600 MUSICAL 
{10 SPACES} COMPOSITIONS" :rem 246 

DATA"HIS 'DON GIOVANNI' IS CONSIDERED ONE OF 
{space} THE MOST PERFECT OPERAS" :rem 136 

DATA"HE BEGAN COMPOSING AT THE AGE OF 5 AND 
{2 spaces} DIED WHEN HE WAS 35" :rem 210 

DATAB, "PETR TCHAIKOVSKY" :rem 34 

DATA"HE COMPOSED 'SWAN LAKE' AND 'THE 
{8 SPACES } NUTCRACKER ' " :rem 169 

DATA"THE 'PATHETIQUE' IS HIS SIXTH SYMPHONY" 

:rem 235 

DATA"HE IS THE MOST FAMOUS RUSSIAN COMPOSER" 

:rem 209 
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3840 DATAAC, CLEOPATRA : rem 52 

3850 DATA "ALTHOUGH A GREEK, SHE WAS THE LAST QUEEN 

OF EGYPT" :rem 225 

3860 DATA"SHE LOVED BOTH MARK ANTONY AND JULIUS 

{3 SPACES} CAESAR" :rem 24 ^ 

3870 DATA"SHE KILLED HERSELF RATHER THAN BE A 

{5 SPACES} ROMAN CAPTIVE" J rem 16 

3880 DATAB, "PETER PAUL RUBENS" :rem 32 y_J 

3890 DATA"HE INVENTED THE FLEMISH STYLE OP BAROQUE 

PAINTING" srem 148 L_/> 

3900 DATA"ROYALTY FAVORED HIS PAINTINGS, MAKING 

{3 SPACES}HIM A RICH MAN" :rem 250 <J 

3910 DATA"HE WAS KNIGHTED BY CHARLES I" :rera 215 - 
3920 DATAB, "JOH ANN VON GOETHE" :rem 7 ^ 

3930 DATA "HE WAS CALLED THE 'GERMAN SHAKESPEARE'" 

:rem 95 

3940 DATA"HIS MOST FAMOUS WORK WAS THE DRAMA 

{6 SPACES }' FAUST ' " :rem 101 

3950 DATA"HE WROTE A NOVEL THAT CAUSED SUICIDES W 

{3 SPACES} ALL OVER EUROPE" :rem 54 

3960 DATAA, "LOUIS XIV" : rem 32 

3970 DATA"HE WAS KNOWN AS THE 'SUN KING'" :rem 24 ^_J 
3980 DATA"HE BUILT A PALACE AT VERSAILLES BECAUSE 

I SPACE] HE HATED PARIS" : rem 31 

3990 DATA"HIS EXCESSIVE TAXES CAUSED THE FRENCH 

{3 SPACES} REVOLUTION" :rem 174 

4000 DATAA, "NAPOLEON BONAPARTE" irem 135 

4010 DATA"HE WAS THE FIRST EMPEROR OF FRANCE" ^ 

:rem 98 

4020 DATA"HE WAS EXILED FROM FRANCE AFTER THE DUKE 

OF WELLINGTON DEFEATED HIM" :rem 94 [_j 

4030 DATA"THE NATION OF FRANCE TRACES ITS ROOTS TO 

HIM" :rem 221 LJ 

4040 DATAA, "KING HENRY VIII" :rem 115 

4050 DATA"HIS COUNTRY ADOPTED A NEW RELIGION SO HE ^ 

COULD GET DIVORCED" : rem 154 

4060 DATA"HE MARRIED SIX WIVES AND DIVORCED OR 

{4 SPACES} KILLED FOUR OF THEM" : rem 179 

4070 DATA"HE HELPED INTRODUCE THE RENAISSANCE TO 

I 2 SPACES }GREAT BRITAIN" :rem 65 o 

4080 DATAA, "BENITO MUSSOLINI " s rem 27 

4090 DATA"KNOWN AS ' IL DUCE', HE WAS DICTATOR OF ^ 

{2 SPACES} ITALY FOR 20 YEARS" :rem 51 

4100 DATA"HE WAS AN EXPELLED SOCIALIST WHO STARTED 

THE FACIST PARTY" irem 88 

4110 DATA "HE SUPPORTED HITLER IN WW II, BUT HIS 

{3 SPACES} COUNTRY FELL TO THE ALLIES": rem 166 LJ 
4120 DATAAB, "MAO TSE-TUNG" :rem 8 

4130 DATA"HE AND KARL MARX WERE COMMUNISM'S LJ 

{7 SPACES} LEADING PHILOSOPHERS" :rem 225 
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DATA "HE RULED A FOURTH OF THE EARTH'S PEOPLE 
{space} FOR 25 YEARS" : rem 68 

DATA"HE ESTABLISHED THE PEOPLE'S REPUBLIC OF 
{SPACE} CHINA IN 1949" : rem 185 

DATAAC, "EVA PERON" :reni 57 

DATA "SHE WAS PROBABLY THE MOST POWERFUL WOMAN 
IN ARGENTINA'S HISTORY" :rem 70 

DATA"THE 'SHIRTLESS ONES' CALLED HER A SAINT 
{ SPACE }F0R HER SOCIAL PROGRAMS" :rem 128 

DATA" A RADIO ACTRESS, SHE LATER BECAME LABOR 
{SPACE} MINISTER OF ARGENTINA" :rem 27 

DAT AD, "JOHN PAUL JONES" : rem 116 

DATA "THIS SCOT WAS A NAVAL HERO DURING THE 
{3 SPACES} REVOLUTIONARY WAR" : rem 249 

DATA"HE SAID 'I HAVE NOT YET BEGUN TO FIGHT'" 

:rem 248 

DATA"LATER IN HIS LIFE HE BECAME AN ADMIRAL 
{2 SPACES} IN THE RUSSIAN NAVY" irem 200 

DATAAC, "CATHERINE II" : rem 253 

DATA"THIS RUSSIAN RULER WAS A GERMAN 
{9 SPACES} PRINCESS, EDUCATED IN FRANCE" 

:rem 14 

DATA" SHE DEFEATED HER HUSBAND PETER FOR THE 
{2 SPACES} RUSSIAN THRONE" :rem 93 

DATA"SHE ADDED MORE THAN 200,000 SQUARE MILES 
TO RUSSIA DURING HER REIGN" : rem 235 

DATAAB, "BENJAMIN DISRAELI" : rem 108 

DATA"HE WROTE SEVERAL NOVELS BASED ON HIS 
{4 SPACES} FRIENDS' SCANDALS" : rem 143 

DATA"HE WAS THE FATHER OF THE CONSERVATIVE 
{3 SPACES} PARTY IN GREAT BRITAIN" : rem 234 
DATA"A JEWISH STATESMAN, HE SERVED TWICE AS 
{2 SPACES} PRIME MINISTER OF BRITAIN" : rem 249 
DAT AABG, "MOHANDAS GANDHI" :rem 19 

DATA"HIS IDEA OF 'MILITANT NONVIOLENCE' LED 
{2 SPACES}T0 INDIA'S INDEPENDENCE" : rem 93 
DATA"HE LIVED IN SOUTH AFRICA FOR 21 YEARS, 
{2 SPACES} LEADING THE INDIANS THERE" :rem 71 
DATA"HE WAS ASSASSINATED WHILE WORKING FOR A 
{space} HINDU-MUSLIM TRUCE" :rem 230 

DATAAE, "ADOLPH HITLER" : rem 93 

DATA"HE HEADED THE NATIONAL SOCIALIST GERMAN 
{space} WORKERS' PARTY" :rem 212 

DATA"HE WAS DICTATOR OF GERMANY FOR 13 
{7 SPACES} FATEFUL YEARS" : rem 125 

DATA "MORE THAN 6 MILLION JEWS DIED UNDER HIS 
{space} ORDERS" s rem 86 

DATAA, "NIKOLAI LENIN" :rem 16 

DATA"HE WAS THE FIRST HEAD OF THE USSR AFTER 
{space} THE REVOLUTION" :rem 71 
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4420 DATA"HIS BROTHER WAS EXECUTED FOR TRYING TO ^ 

{2 SPACES} ASSASSINATE A CZAR" :rem 123 

4430 DATA"HE DIRECTED THE BOLSHEVIK UPRISING FOR 

{2 SPACES} 22 YEARS WHILE IN EXILE" :rem 73 
4440 DATAE, "PANCHO VILLA" :rem 204 

4450 DATA"HE WAS A GUERILLA LEADER DURING THE UJ 

{5 SPACES} MEXICAN REVOLUTION" : rem 172 

4460 DATA"HE ROBBED FROM RICH LANDOWNERS AND GAVE "LJ 

{space} TO THE POOR" : rem 120 

4470 DATA"HE WENT BY THE NAME OF A FAMOUS BANDIT, 

{space} AND WAS HIMSELF A BANDIT" : rem 205 

4480 DATAA,"DUKE OF WELLINGTON" :rem 92 

4490 DATA"HE IS FAMOUS FOR THE DEFEAT OF NAPOLEON Lj 

{space} AT WATERLOO" :rem 135 

4500 DATA"HE was responsible FOR BRITAIN'S LJ 

{8 spaces} CATHOLIC EMANCIPATION ACT" :rem 230 
4510 DATA"THIS 'IRON DUKE' WAS BURIED UNDER THE ^ 

[3 SPACES} SAINT PAUL'S CATHEDRAL DOME" 

:rem 236 

4520 DATADF, "HENRY FORD" : rem 144 \^ 

4530 DATA"THIS SCHOOL DROPOUT CHANGED THE FACE OF 

{SPACE} AMERICAN INDUSTRY" : rem 136 LJ 

4540 DATA"HE CREATED THE FIVE DAY WORKWEEK" : rem 8 
4550 DATA"HE DEVELOPED THE FIRST MASS-PRODUCTION '-^ 

{2 SPACES} AUTO" :rem 91 

4560 DATACG,"MARY BAKER EDDY" :rem 167 

4570 DATA"SHE FOUNDED THE CHRISTIAN SCIENCE 

{7 SPACES} CHURCH" :rera 80 

4580 DATA"HER BOOK WAS 'SCIENCE AND HEALTH WITH LJ 

{3 SPACES }KEY TO THE SCRIPTURES'" i rem 178 
4590 DATA"SHE FOUNDED THE 'CHRISTIAN SCIENCE ^ 

{6 SPACES } MONITOR ' " :rem 11 

4600 DATAEG, "GRIGORI RASPUTIN" :rem 105 

4610 DATA "HE TAUGHT THAT MAN MUST SIN BEFORE HE 

{3 SPACES }COULD BE FORGIVEN" :rem 97 

4620 DATA"HIS SUPPOSED HEALING POWERS ATTRACTED LJ 

{3 SPACES }THE czarina TO HIM" :rem 95 

4630 DATA"HIS negative INFLUENCE MAY HAVE HELPED LJ 

{2 SPACES }CAUSE THE RUSSIAN REVOLUTION" 

:rem 70 

4640 DATADG, "BRIGHAM YOUNG" : rem 111 ij 

4650 DATA"HE LED THE MORMON CHURCH FOR 33 YEARS" 

:rem 214 t i 

4660 DATA"HE WAS THE LEADER OP A RELIGIOUS EXODUS 

{SPACE}T0 UTAH" :rem 106 LJ 

4670 DATA"HE IS MOST OFTEN ASSOCIATED WITH THE 

{4 SPACES} PRACTICE OF POLYGAMY" J rem 102 ' 

4680 DATAG, "MARTIN LUTHER" :rem 66 ^ 

4690 DATA"HIS '95 THESES' CAUSED THIS MONK TO BE 

{2 SPACES }EXCO^B«!UNICATED" irem 255 i_j 
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DATA "HIS REBELLION STARTED THE PROTESTANT 
(4 SPACES} REFORMATION" trem 251 

DATA "HE HELPED NUNS ESCAPE FROM NUNNERIES, 
{3 SPACES} AND MARRIED ONE OF THEM" j rem 241 
DATAD, "BOOKER T. WASHINGTON" :rem 225 

DATA"THIS SON OF A SLAVE FOUNDED TUSKEGEE 
{4 SPACES} INSTITUTE" :rem 208 

DATA"HE STARTED THE NATIONAL NEGRO BUSINESS 
{2 SPACES }LEAGUE IN 1900" :reni 3 

DATA"HE CHAMPIONED EDUCATION FOR BLACKS AND 
{2 SPACES} AMERICAN INDIANS" srem 223 

DATAAE, "ATTILA THE HUN" : rem 108 

DATA "HE WAS THE KING OF THE HUNS STARTING IN 
{SPACE}433 A.D" :rem 182 

DATA"THOUGH HE CONQUERED MOST OF THE WORLD, 
{2 SPACES} ITALY DEFEATED HIM TWICE" :rem 175 
DATA"HIS NICKNAME WAS THE 'SCOURGE OF GOD'" 

:rem 253 

DAT AA, "ALEXANDER THE GREAT" : rem 127 

DATA"AS KING OF MACEDONIA, HE CONQUERED THE 
{2 SPACES} EASTERN WORLD IN THREE YEARS" 

:rem 107 

DATA"HE SPREAD GREEK CIVILIZATION THROUGH 
{4 SPACES} MOST OF THE WORLD" :rem 221 

DATA"HIS DREAM WAS TO CONQUER THE WORLD AND 
{2 SPACES }THEN unite IT" :rera 178 

DAT AB, ARISTOTLE trem 15 

DATA"THIS GREEK SCIENTIST WAS EDUCATED BY 
{4 SPACES} PLATO FOR 20 YEARS" : rem 157 

DATA"HE IS CONSIDERED THE FATHER OF PHYSICAL 
{space} SCIENCE" :rem 192 

DATA "HE FOUNDED THE SCIENCE OF DEDUCTIVE 
{5 SPACES} LOGIC" :rem 62 

DATAD, "ETHAN ALLEN" :rem 126 

DATA"HE ORGANIZED THE GREEN MOUNTAIN BOYS" 

:rem 93 

DATA"HE HELPED BENEDICT ARNOLD CAPTURE FORT 
{2 SPACES }TIC0NDER0GA IN 1775" trem 81 

DATA" HE FOUGHT AGAINST CANADA IN THE AMERICAN 
REVOLUTION" trem 244 

DAT AE, "BENEDICT ARNOLD" trem 156 

DATA "HE HELPED CAPTURE ST. JOHNS, QUEBEC, 
{4 spaces} DURING THE REVOLUTIONARY WAR" 

trem 124 

DATA" GEORGE WASHINGTON MADE HIM COMMANDER OF 
{SPACE}WEST POINT" trem 215 

DATA"THIS BRITISH SPY WAS CALLED AMERICA'S 
{3 spaces} BIGGEST TRAITOR" trem 159 

DATACD, "CLARA BARTON" trem 13 
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4970 DATA"SHE FOUNDED THE AMERICAN RED CROSS 

{6 SPACES} SOCIETY" : rem 189 

4980 DATA"SHE SEARCHED FOR MISSING SOLDIERS AFTER 
{ SPACE }THE CIVIL WAR" : rem 108 

4990 DATA"SHE AIDED VICTIMS OF THE JOHNSTOWN FLOOD 
AND THE BOER WAR" : rem 4 

5000 DATAE,"JOHN WILKES BOOTH" :rera 14 

5010 DATA"HE WAS ONE OF A FAMILY OF FAMOUS ACTORS" 

:rem 66 

5020 DATA"HE WANTED TO KIDNAP AND KILL THE 

{8 SPACES} PRESIDENT AND VICE-PRESIDENT" 

:rem 50 

5030 DATA"HE WAS SHOT FOR THE MURDER OF ABRAHAM 

{3 SPACES }LINC0LN" :rem 3 

5040 DATAD, "MARTIN LUTHER KING" : rem 95 

5050 DATA"THIS BAPTIST PREACHER WON THE NOBEL 

{5 SPACES} PEACE PRIZE IN 1968" : rem 93 

5060 DATA"HIS NON-VIOLENT WORK WITH BLACK CIVIL 

{3 SPACES } RIGHTS LED TO HIS DEATH" :rem 44 
5070 DATA"HE ORGANIZED THE SOUTHERN CHRISTIAN 

{5 SPACES} LEADERSHIP CONFERENCE" :rem 17 

5080 DATAG,"JOHN CALVIN" : rem 138 

5090 DATA"A FRENCH PROTESTANT, HIS ORIGINAL 

[7 SPACES} AVOCATION WAS LAW" :rem 15 

5100 DATA"HIS BOOK PROPOSED A SCRIPTURAL BASIS 

{4 SPACES}F0R all christian DOCTRINE" :rem 24 
5110 DATA"HIS CREED FORMED THE CHURCH OF SCOTLAND 

{space} AND OTHER PRESBYTERIAN GROUPS": rem 129 
5120 DATAE , CALIGULA : rem 149 

5130 DATA"THE SON OF AGRIPPINA, HIS REAL NAME WAS 

{ SPACE }GAIUS CAESAR" : rem 144 

5140 DATA"AFTER MAKING HIS HORSE A CONSUL, HE WAS 

{space} ASSASSINATED AT THE AGE OF 29" :rem 53 
5150 DATA"A MENTAL ILLNESS CAUSED HIM TO KILL AND 

{space} TORTURE PEOPLE AT DINNER" : rem 201 

5160 DATADF, "GEORGE WASHINGTON CARVER" :rem 94 

5170 DATA"HE WAS RANSOMED FROM RACIST NIGHT RIDERS 

FOR A ?300 HORSE" :rera 153 

5180 DATA"HE DEVELOPED MORE THAN 300 PRODUCTS FROM 

PEANUTS" :rem 10 

5190 DATA "HE DEVELOPED MORE THAN 115 PRODUCTS FROM 

SWEET POTATOES" :rem 230 

5200 DATAB, SOCRATES : rem 179 

5210 DATA"HE WAS A SCULPTOR, BUT BECAME INTERESTED 

IN PHILOSOPHY" :rem 172 

5220 DATA"HE FOUNDED THE CYNIC AND STOIC SCHOOLS 

{2 SPACES} OF PHILOSOPHY" : rem 36 

5230 DATA"HE WAS SENTENCED TO DEATH FOR CORRUPTING 

THE MORALS OF YOUTH" :rem 19 
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5240 DATAB, PLATO trem 211 

5250 DATA" 'THE REPUBLIC' WAS HIS GREATEST 

{9 SPACES} PHILOSOPHICAL WORK" irem 239 

5260 DATA"HIS ACADEMY MADE ATHENS THE INTELLECTUAL 

CENTER OF GREECE" :rem 69 

5270 DATA"HE BELIEVED THAT GOD WAS THE ABSOLUTE 

{3 SPACES} IDEA OF GOOD" 
5280 DATAB, "LUDWIG VAN BEETHOVEN" :rein 236 

5290 DATA"MOZART SAID TO 'KEEP YOUR EYE ON HIM'" 

:reni 239 

5300 DATA"HE WROTE THE NINTH SYMPHONY AFTER HE WAS 

DEAF" :rem 39 

5310 DATA "HE SURPASSED MOZART AND HAYDN IN THE 

{4 SPACES} DEVELOPMENT OF THE SONATA" :rem 137 
5320 DATAC, "FLORENCE NIGHTINGALE" : rem 15 

5330 DATA "SHE WAS MOST FAMOUS AS A CRIMEAN WAR 

{4 SPACES }NURSE" : rem 77 

5340 DATA"HER SCHOOL OF NURSING WAS THE FIRST 

{5 SPACES} FORMAL TRAINING FOR NURSES": rem 196 
5350 DATA "SHE WAS CALLED 'THE LADY WITH THE LAMP'" 

: rem 59 

5360 DAT ABG, "THOMAS AQUINAS" : rem 191 

5370 DATA"HE WAS THE 'DUMB OX WHOSE BELLOW FILLED 

{space} THE WORLD'" : rem 7 

5380 DATA"HE TAUGHT THAT MAN LEARNED TRUTH FROM 

{3 spaces} BOTH FAITH AND HIS SENSES" :rem 124 
5390 DATA"HE ORGANIZED THE DOMINICAN SCHOOL OF 

{4 SPACES} CATHOLIC FAITH" : rem 226 

5400 DATADF, "THOMAS EDISON" : rem 107 

5410 DATA"HE INVENTED OVER 1000 PRODUCTS, BUT HAD 

{space} VERY LITTLE SCHOOLING" :rem 33 

5420 DATA"HE INVENTED THE PHONOGRAPH AND THE 

{6 SPACES}M0TI0N picture machine" :rem 133 
5430 DATA"HIS greatest INVENTION WAS THE ELECTRIC 

{space} LIGHT BULB" :rem 219 

5440 DAT ABDF, "BENJAMIN FRANKLIN" : rem 188 

5450 DATA"HE WORKED AS A PRINTER AND PUBLISHED HIS 

OWN ALMANAC" :rem 182 

5460 DATA"HE PERFORMED ELECTRICAL EXPERIMENTS WITH 

KITES" srem 70 

5470 DATA "HE STARTED THE POSTAL SERVICE IN THE 13 

{SPACE} COLONIES" :rem 207 

5480 DATAD, "ALEXANDER HAMILTON" :rem 143 

5490 DATA"HE WAS THE FIRST U.S. SECRETARY OF THE 

{2 SPACES} TREASURY" :rem 188 

5500 DATA"HE ADVOCATED A U.S. GOVERNMENT BASED ON 

{space} PROPERTY AND WEALTH" :rem 163 

5510 DATA"HIS DOCTRINE OF 'IMPLIED POWERS' STILL 

{2 SPACES } INFLUENCES THE SUPREME COURT" 

:rem 47 
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5600 DATA"$" :rem 77 LJ 

6000 REM *** SONG DATA *** :rem 247 

6010 DATA8583, 1,8583, 2, 8101, 1,7217, 2, 5728, 2, 5728, 2 ^ 

,7217,1,7217,2 :rem 155 

6020 DATA8101 , 1 , 8583 , 2 , 11457 , 2 , 11457 , 2 , 8583 , 1 , 8583 

,2,8101,1 :rem 153 

6030 DATA7217, 2, 5728, 2, 5728, 2, 5728, 1,5728, 2, 4291,1 

,5728,4 :rem 76 LJ 
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Skeleton 



Skill area: Science 
Level: 4 

Equipment required: None 
Modification: Yes 



That Old Bag of Bones 

You've heard people say their family has a "skeleton in the closet." 
r~*i Usually they mean Aunt Mildred is a bit peculiar, or Uncle Fred 

has a very strange hobby. But there's another way to get a skeleton 
' ' in your closet : lose this game, and youH have a skeleton sitting 
r*) right on your closet floor. 

Do you want a skeleton in your closet? Of course not! But if 
~ you know your bones, you won't have any problem with this 
knock-kneed character. 

How to Play 

"Skeleton" is designed to teach you parts of the basic skeletal 
structure. The computer will pick a name of a bone which you 
O must guess. The computer will also give you a clue. 
^ Determine the bone by trying one letter at a time. If you pick 

more than 11 incorrect letters, youll find a skeleton sitting in your 
O closet. 

Hit any key to begin. Then pick your level of play and wait ten 
seconds. The computer will ask you to enter a letter. If it's a letter 
O that's found in the word the computer has in mind, the computer 
^ will show you that letter's position in the word . If you guess in- 
correctly, the screen will go black, the incorrect letter you've tried 
will appear at the bottom of the screen, and part of the skeleton 
^ will appear in your closet. 

The names included in Skeleton appear below. Familiarize 
r**i yourself with the list, but try not to use it during play. You may 
^ find it easier if you use the list, but you won't have as much fun. 

Beginning List 

Qavicle Fibula Carpal Bones 

^ Humerus Femur Metacarpal Bones 

^ Ulna Metatarsal Bones Phalanges 

Radius Tarsal Bones C0CC50C 

O Tibia Patella Ilium 
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Pubis 

Ischium 

Sacrum 



Parietal Bone 
Spheiioid 
Temporal Borie 
Occipital Bone 
Mastoid Process 
Pubic Symphysis 
Lumbar Vertebrae 
Thoracic Vertebrae 
Cervical Vertebrae 



Vertebrae 
Ribs 

Sternum 
Advanced List 



Scapula 

Mandible 

Cranium 



Maxilla 

Zygomatic Bone 

Nasal Bone 

Frontal Bone 

Sacroiliac Joint 

Axis 

Atlas 

Axis 

Atlas 



Scoring 

At the end of a round, the computer will ask if you want the name 
of another bone. Press the letter Y for yes or the letter N for no. 
After you've finished playing Skeleton, the computer will tell you 
how many words you correctly identified, as well as how many 
you missed. 

Skeleton 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM SKELETON irem 122 

100 CB=828:NW%=43 :reni 157 

105 VC=53248 :POKEVC+32 , 6 : POKEVC+33 , 13 : PRINTCHR$ ( 14 
7) irem 62 

110 DIM NT%(19).,WT$(NW%-1),WI$(19),CC$(NW%-1) 

:rem 92 

115 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX :rem 73 
120 S1=((PEEK(53272)AND240)/16)*1024:S2=55296 

:rem 102 

130 FORX=0TO19 : READZ : NT% ( X ) =Z : NEXTX : F0RX=1T0NW% : RE 
ADX$,XX$ :rem 53 

135 WT$(X-1)=X$:CC$(X-1)=XX$:NEXT X :rem 245 

140 PRINT"{CLR1 {BLK} {2 SPACES} {RVSl {9 SPACESlS K E 
L E T O N{12 SPACES} {off} {down}" :rem 163 

142 GOSUB8000 irem 223 

146 PRINT" THIS GAME TEACHES YOU THE NAMES OF THE 
{2 SPACES} BONES IN THE HUMAN SKELETON:" 

:rem 138 

150 PRINT" {6 DOWN} THE COMPUTER WILL SELECT THE NA 
MES OF" :rem 255 
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160 PRINT" THE BONES, AND PRESENT THEM TO YOU." 

:rem 220 

170 PRINT" {down} you MUST DETERMINE THE BONE BY" 

:rem 253 

175 PRINT" GUESSING ONE LETTER AT A TIME.": rem 184 
180 PRINT" {down} if YOU PICK MORE THAN 11 INCORREC 

T" :rera 151 

190 PRINT" LETTERS, A SKELETON WILL HANG IN YOUR 

{3 SPACES} CLOSETl 1" :reni 168 

200 PRINT" {2 DOWN} {7 SPACES }( PRESS ANY KEY TO STAR 

T)":GOSUB2500 :rem 230 

210 PRINT "{CLR}{6 DOWN} {9 SPACES}D0 YOU WISH TO P 

LAY" :rem 1 

214 PRINT" {down} {8 SPACES} {RVS}b{OFF}EGINNERS OR 
{RVS}a{OFF}DVANCED?" :rem 116 

215 GET Q$:IF Q$<>"B" AND Q$<>"A" THEN 215 : rem 57 

216 IF Q$="A" THEN NW%=43 :rem 252 

217 IF Q$="B" THEN NW%=25 :rem 254 

219 PRINT" {9 DOWN} {9 SPACES} (TEN SECOND DELAY)"; 

:rem 164 

220 FORX=1TONW%:POKECB+X,0:NEXTX :rem 76 
230 F0RX=1T0NW% : GOSUB800 : POKECB+Z , X :NEXTX: POKEVC+3 

3,15sPRINTCHR$(147) : rem 163 

300 F0RLC=1T0NW% :rem 228 

310 X=PEEK(CB+LC) :W0$=WT$(X-1) :SY$=CC$(X-1) 

:rem 237 

320 LW%=LEN(WO$) :rem 148 

330 SC=0:FORX=0TOLW%-1 :rem 72 

340 WI$(X)=MID$(W0$,X+1,1) :IFASC(WI?(X) )=32THENSC= 
SC+1 :rem 139 

345 NEXTX :rem 51 

350 LC%=0 :0F%=881 : SO=640 : BC%=0 :GOSUB1000 :LW%=LW%-1 

:rem 111 

400 GETX$:IFX$=""THEN400 :rem 121 

410 X=ASC(X$) :IFX<65ORX>90THEN400 :rem 249 

500 HI=0:FORY=0TOLW%;IFWI$(Y)<>X$THEN530 : rem 217 
510 HI=l:WI$(Y)="$":POKESl+SO+CC+Y*2,X-64 : rem 72 
520 LC%=LC%+1 :rem 152 

530 NEXTY:IFHI=1THEN560 irem 194 

540 GOSUB3000:BC%=BC%+1 :rem 3 

550 IFBC%>10THENGOSUB2000:LO%=LO%+1:FORX=1TO5000:N 
EXTX:GOTO700 :rem 96 

560 IF(LC%+SC) <=LW%THEN400 :rem 244 

570 GOSUB4000:WI%=WI%+1 : rem 61 

700 PRINT"{CLR}{BLU}{2 DOWN} { 13 SPACES } {RVS }AN0THE 
R BONE ?{0FF}":PRINT"{2 DOWN} {5 SPACES}ENTER 
{rvs}y{0FF} OR {RVS}n{OFF}" :rem 143 

720 GETX$ :IFX$=""THEN720 :rem 131 

730 IFX$="Y"THENNEXTLC:GOTO220 :rem 131 

740 IFXS<>"N"THEN720 :rem 122 
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750 PRINT"{BLK}{3 D0WN}{5 SPACES}NUMBER CORRECT =" 
;WI% :rem 72 

760 PRINT" {2 DOWN} {5 SPACES }NUMBER MISSED 

{2 SPACES } = ";L0% :rein 86 

770 PRINT" {2 DOWN} {5 SPACES}FINAL SC0RE{4 SPACES}= 
";INT((WI%*100)/(WI%+LO%));"{LEFT}%" :reni 109 
780 END :rem 118 

800 Y=0 :rem 94 

810 Z=INT ( RND ( 1 ) *NW% ) +1 : I FPEEK ( CB+Z ) =0THENRETURN 

:rein 231 

820 Y=Y+1:IFY<10THEN810 :rem 108 

830 Z=l :rem 99 

840 IFPEEK(CB+Z)=0THENRETURN : rem 39 

850 Z=Z+1 :GOTO840 trem 249 

1000 PRINT" {CLR}{BLK} {down} {12 SPACES}S RELET 

{ SPACE }0 N" I rem 43 

1110 PRINT" {12 DOWN}" :rem 96 

1500 PRINT" {2 DOWN} 

I,*************************************** "• 

" Trem 244 

1502 QX=LEN(SY$)/2:QQ=INT(QX) tIFQQOQX THEN QQ=QQ+ 
1 :rem 167 

1504 QQ=20-QQ : rem 218 

1505 PRINT SPC(QQ);SY$ :rem 60 
1510 PRINT"{D0WN} ENTER A LETTER:"; :rem 173 
1515 CC=INT((40-(LW%*2-1) )/2) : rem 225 
1520 Z=0:FORY=0TO( (LW%-1 ) *2 )STEP2 :X=70 : IFASC(WI$ ( Z 

) )=32THENX=32 : rem 12 

1540 P0KES1+S0+CC+Y,X: IFX=70THENPOKES2+SO+CC+Y, 6 

trem 15 

1550 Z=Z+1:NEXTY :rem 234 

1560 Z=WI%+LO%:IFZ=0THENZ=.l :rem 200 

1570 PRINT "{HOME} {24 DOWN} "; SPC( 13 ); "SCORE 

:rem 146 

1580 PRINTINT( (WI%*100)/Z);"{LEFT}%"; :rem 109 

1590 RETURN trem 175 

2000 FORX=0TOLW%:IFWI$(X)="$"THEN2020 trem 167 

2010 Y=ASC(WI$(X) ) tIFY=32THEN2020 trem 165 

2015 POKESl+SO+CC+X*2,Y-64 trem 244 

2020 NEXTX trem 91 

2030 POKEMC+0 , 1 POKEMC+1 , 1 POKEMC+5 , 15 : POKEMC+6 , 15 
tPOKEMC+24,8 trem 177 

2040 FORY=80TO20STEP-10 trem 122 

2050 POKEMC+1, YtPOKEMC+4, 17 tFORX=lTO60 1 NEXTX 

trem 20 

2060 POKEMC+4,16tFORX=lTO30tNEXTX,Y trem 188 

2070 POKEMC+24,0 trem 117 

2080 RETURN trem 170 

2500 REM *** SPRITE AND SONG *** trem 136 
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2505 
2510 
2520 
2530 
2540 
2550 
2560 

2570 
2580 

2590 
2600 
2610 
2620 
2630 
2640 
3000 
3005 

3010 

3020 
3030 
3040 

3050 

3060 

3070 

3080 
3090 
3100 

3110 

3500 

3505 
3510 
3520 

3530 

3540 
4000 
4010 



X=5 : Y=0 : POKEMC+24 ,15: POKEVC+ 21,1 
Z=INT{NT%(Y)/256) 
POKEMC+0,NT%(Y)-(Z*256) 
POKEMC+1 , Z : POKEMC+4 , 17 
Y=Y+1 : IFY> 19THENY=0 
POKEVC+0 , X : X=X+10 



:rem 159 
irem 216 
:rem 31 
:rein 87 
:rein 213 
:rem 38 



I FX > 60 AND ( PEEK ( VC+ 1 6 ) AND 1 ) = 1 THENX=5 : POKEVC+ 1 6 
,0:POKEVC+0,X :rein 89 

IFX>255THENX=5;POKEVC+16,l: POKEVC+0, X rrem 90 
IFPEEK{2040)=13THENPOKE2040,14:GOTO2600 

:rem 43 

POKE2040,13 :rem 85 

FORZ=1TO120:NEXTZ: POKEMC+4, 16 : rem 107 

FORZ=1TO20:NEXTZ rrem 80 

GETX$:IFX$=""THEN2510 :rem 227 

POKEMC+24, 0:POKEVC+2 1,0 :rein 99 

RETURN :rem 172 

PRINT" {BLK}"; :rem 95 

0N(BC%+1 )GOTO3010, 3020, 3030, 3040, 3050, 3060, 30 
70,3080,3090,3100,3110,3120 :rem 48 

PRINT" {home} {3 D0WN}";SPC(18) ;"{RVS}£ 1*3 
{OFF}":GOTO3500 :rem 156 

PRINTSPC(18) ; " {RVS}Q Q{0FF} " :GOTO3500: rem 242 
PRINTSPC(18);"{RVS} - {OFP} " :GOTO3500 :rem 46 
PRINTSPC ( 18 ) ; " i * i { RVS } { OFF } f " : GOTO3500 

:rem 218 

PRINTSPC ( 14 ) ; " { RVS } iB3 { OFF } { 4 SPACES } { RVS } - 
{off} {4 SPACES }iB3":GOTO3500 :rem 158 

PRINTSPC ( 15 ) ;"M{ 3 SPACES }-{3 SPACES }N" :GOT035 
00 :rem 37 

PRINTSPC(16);"MB2 PiBEiE2 P^N" :GOTO3500 

:rem 183 

PRINTSPC(18) ;" *+* " ;GOTO3500 irem 13 

PRINTSPC ( 18 ) ;" *+^ " ;GOTO3500 :rem 14 

PRINTSPC ( 15 );"NMr2 SPACES }+{ 2 SPACES }NM" : GOTO 
3500 :rem 185 

PRINTSPC ( 13 );"MN{ 2 SPACES }m{ RVS }Q Q{0FF}N 
{2 SPACES }MN" :rem 131 

POKEMC+0 , : POKEMC+1 , 5 : POKEMC+4 , 33 : POKEMC+5 , 15 
:P0KEMC+6, 15: POKEMC+24, 8 :rem 163 

POKEVC+33,0 :rem 130 

FORY=lTO100:NEXTY:POKEMC+4,32 :rem 102 

FORY=1TO30 :NEXTY: POKEMC+24, 0: POKEVC+33 , 15 

:rem 91 

P0KES1+0F% , X-64 : P0KES2+0F% , : 0F%=0F%+2 

:rem 245 

RETURN :rem 172 

REM *** FLASH ON A WIN *** :rem 222 

POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 15 : POKEMC+6 , 15 
: POKEMC+24, 12 :rem 220 
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4020 FORX=8T015 : rem 131 

4030 POKEVC+33,X :rem 164 

4040 POKEMC+l,X*4:POKEMC+4,17 : rem 177 LJ 

4050 FORY=1TO50:NEXTY :rem 81 

4060 POKEMC+4,16:FORY=1TO30:NEXTY,X :rem 191 LJ 

4070 POKEMC+24,0 :rem 119 

4080 RETURN :rem 172 

5000 DATA1072, 1607, 1804, 1804, 1607, 1432, 1204, 1432,1 
204,1432,1072,1072 : rem 67 

5010 DATA1432, 1804, 2145, 1804, 2145, 1607, 1204, 1072 LJ 

: rem 111 

6000 REM *** LOAD THE SPRITES *** : rem 209 ' 

6020 . :rem 246 

7000 DATA"CLAVICLE" , "COLLARBONE" , "HUMERUS" , "UPPER 

{SPACE} ARM" :rem 46 ij 

7005 DATA"ULNA", "FOREARM", "RADIUS", "FOREARM", "TIBI 

A", "SHIN" :rem 5 LJ 

7010 DATA"FIBULA", "CALF", "FEMUR", "THIGH" : rem 50 
7015 DATA"METATARSAL BONES", "FOOT ( SOLE) ", "TARSAL LJ 

{SPACE} BONES", "FOOT (ANKLE)" : rem 206 

7020 DATA "PATELLA", "KNEECAP", "CARPAL BONES", "HAND 

{SPACE} (WRIST) ", "METACARPAL BONES" : rem 97 ij 
7025 DATA"HAND (KNUCKLE) " , "PHALANGES" , "FINGERS" , "P 

HALANGES", "TOES", "COCCYX" : rem 13 

7030 DATA"TAILBONE", "ILIUM", "PELVIS (HIP) ", "PUBIS" 

, "PELVIS (GROIN)", "ISCHIUM" .-rem 99 V_J 

7035 DATA"PELVIS ( SEAT) ", "SACRUM" , "BASE OF SPINE", 

"VERTEBRAE", "SPINE", "RIBS" :rem 247 *— ^ 

7040 DATA"CHEST" , "STERNUM" , "BREASTBONE" , "SCAPULA" , i j 

"SHOULDER BLADE", "MANDIBLE" : rem 230 

7045 DATA" JAW", "CRANIUM'\ "BRAIN CASE" , "PARIETAL BO \_J 

NE","TOP OF YOUR HEAD" :rem 198 

7050 DATA"SPHENOID", "THE BASE OF THE SKULL" , "TEMPp LJ 

RAL BONE" !rem 233 

7055 DATA "ALONGSIDE YOUR HEAD" , "OCCIPITAL BONE","T ^ 

HE BACK OF THE HEAD" : rem 60 

7060 DATA"MASTOID PROCESS ", "TUCKED BEHIND THE EAR" 

, "PUBIC SYMPHYSIS" : rem 170 

7065 DATA" PELVIC CONNECTION (GROIN) ", "LUMBAR VERTE 

BRAE", "THE LOWER SPINE" :rem 223 LJ 

7070 DATA"THORACIC VERTEBRAE" , "THE MIDDLE OF THE B 

ACK", "CERVICAL VERTEBRAE" : rem 249 ^ 

7075 DATA"A PAIN IN THE NECK" , "MAXILLA" , "STIFF UPP ij 

ER LIP", "ZYGOMATIC BONE" : rem 83 

7077 DATA"CHEEK", "NASAL BONE" , "NOSE" , "FRONTAL BONE 

"."FOREHEAD" : rem 147 

7080 DATA"SACROILIAC JOINT", "THE PELVIC CONNECTION LJ 

(HIP) ", "AXIS" :rem 102 

7085 DATA"TURN YOUR HEAD" , "ATLAS" , "HOLD UP YOUR HE *— ' 

AD" :rem 94 . 
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7090 DATA"AXIS", "SECOND NECK BONE" , "ATLAS" , "TOP NE 

CK BONE" :reni 97 

8000 REM *** LOAD THE SPRITES *** :rem 211 

8010 FORX=832T0832+127:READZ:POKEX,Z:NEXTX:rem 175 
8020 POKEVC+0 , : POKEVC+1 , 93 : POKEVC+16 , : POKEVC+2 1 , 

0:POKEVC+23,1 trem 10 

8030 POKEVC+27 , : POKEVC+28 , : POKEVC+29 , 1 : POKEVC+39 

,0:POKE2040,13 : rem 31 

8040 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 12 

9 :reni 10 

8050 RETURN :rem 173 

8900 DATA0, 56, 0,0, 84, 0,0, 56, 0,0, 16, 0,48, 124, 0,8, 14 

6,0,5,125,0,2,16,128 :rem 111 

8910 DATA0, 124, 64, 0,16, 32, 0,124, 192, 0,186, 0,0, 68,0 

,0,130,0,1,1,0,2,0,128 rrem 192 

8920 DATAl, 1,0, 0,130, 0,1, 131, 0,0, 0,0, 0,0, 0,0 

:rein 77 

8930 DATA0, 56, 0,0, 84, 0,0, 56, 0,0, 16, 0,0, 124, 0,1, 147 
,0,2,124,128,4,16,64,2,124 rrem 137 

8940 DATA128, 4, 16, 64, 2, 124, 128, 0,186, 0,0, 68, 0,0, 68 
,0,0,68,0,0,0,0,0,68 :rem 126 

8950 DATA0, 0,68, 0,0, 68, 0,0, 130, 0,0, 0,0,0 :reni 172 
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Skill area: Social Studies 
Level: 4 
Equipment required: None 
lUlodlfication: Yes 

LJ 

Mythology ^ 

"Unicorn" is a history game of people who never were. The 37 ^ 

characters whose lives are presented here lived only in the minds 

of the ancient Greeks and Romans. These are the heroes and 

heroines of Greek and Roman mythology. i_j 

YouH be asked up to 5 questions about each of 37 Greek and 
Roman mythological heroes. The questions will be presented in 
random order, so every game of Unicorn is different. Points are (_j 
given depending on how many questions you use to identify the 
hero or heroine in question. 



LJ 



How to Play ^ 

To begin the game, hit any key. Because of the amount of data in 

Unicom, there will be a ten-second delay after the key is pressed 

before the game begiris. ^ 

When a question is asked by the computer, type the name of LJ 
the mythological hero or heroine on the keyboard. If you can't 

guess the name of the character from the clue provided, hit the ^ 

RETURN key. LJ 

Abbreviations and misspellings are incorrect answers, so you 

must write out the full name of the character. Many of these char- ^ 

acters have both Greek and Roman names. For example, the \_j 
Greek god Hermes is identical to the Roman god known as 

Mercury. Unless otherwise specified, Unicom uses the Greek ^ 

name, and the Roman name is considered an incorrect answer. i_j 

If you are xmable to guess the hero or heroine's name after the 

first four questions have been presented, the fifth is a multiple- ^ 

choice question. The correct name will then flash on the screen if lJ 
you still can't identify the character. 

Anytime you wish to end the game early, type END instead ^ 

of making a guess on any question. You will not be penalized if {_j 
you end S\e game before aU questions have been asked. 
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Daedalus 


Mars 


Persephone 


Dionysus 


Medea 


Perseus 


Echo 


Medusa 


Phaeton 


Hades 


Narcissus 


Poseidon 


Hecate 


Odysseus 


I*rometheus 


Helen 


Oedipus 


Sisyphus 


Heracles 


Orpheus 


Tantalus 


Hermes 


Pandora 


Theseus 


Jason 


Pelops 


Zeus 



The names of the 37 m5^hological characters 
corn are listed below as a spelling aid: 

Achilles 
Aeneas 
Agamemnon 
Andromeda 
Aphrodite 
Apollo 
Artemis 
Athena 
Cassandra 
Circe 

Scoring 

Points are given in Unicorn as follows: 

If you get the right name after only 1 question, 5 points. 

If you guess after 2 questions, 4 points. 

If you guess after 3 questions, 3 points. 

If you guess after 4 questions, 2 points. 

If you guess after 5 questions, 1 point. 

If you are still unable to guess the name of the mythological char- 
acter, -5 points. 

At the end of the game, you will see the total number of 
points, as well as a percentage score. 

Unicorn 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

:rem 51 
trem 132 
,12: rem 35 
:rein 198 
:rein 22 
.)=Y:NEXTX 
;rem 139 
:rem 176 
:rein 139 
srem 115 
:rem 156 
:reni 169 
:rem 69 
trem 158 



1 REM UNICORN 
100 NS=37:CB=900:VC=53248 
110 PRINTCHR$(147) :POKEVC+32,6:POKEVC+33,: 
120 DIM QT$(7) ,NT%(16,1) 
130 READX$:IFX$<>"$"THEN130 
140 FORX=0TO16 I READZ , Y : NT% (X , ) =Z : NT% ( X , 1 ] 



150 FORX=54272TO54295:POKEX,0:NEXTX 
160 SX=54272:POKESX+5,17 
170 FL$="{RVS1 {40 SPACES} {off}" 
180 POKESX+6,129 
200 GOSUB700 

205 S%=0 : FORX=1TONS : POKECB+X , : NEXTX 
210 F0RX=1T0NS : GOSUB800 : POKECB+Z , X :NEXTX 
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300 X=l :rem 89 LJ 

305 Y=PEEK(CB+X) :Y=(Y-1)*8 :reni 230 

310 RESTORE :IFY=0THEN3 30 :rem 12 LJ 

320 F0RW=1T0Y:READX$:NEXTW :rein 223 

330 P0RW=1T08:READX$:QT$(W-1)=X$:NEXTW :rem 129 ^ 
340 W=VAL(QT$(7) )+3:AN$=QT$(W) :FORW=0TO3 : RS (W)=0 :N 
EXTW :rem 40 

350 F0RW=1T04 :reni 27 

360 V=INT(RND(1)*4):IFRS(V)<>0THEN360 :rem 179 

370 RS(V)=W:NEXTW :rem 74 LJ 

400 W=0 :rem 88 

405 GOSUB4300 :rein 224 LJ 

410 PRINT" {3 SPACES} QUESTION #";W+1 :rem 239 

420 X$=QT$(RS(W)-1) :rem 20 ^ 

430 PRINT" {2 D0WN}";X$;". {2 DOWN} ": PRINT" "; 

:rem 86 

440 GOSUB900:IFX$="Q"THEN500 : rem 12 LJ 

442 IFX$="END"THEN600 :reni 194 

445 W=W+1 : IFW<=3THEN405 rrem 120 LJ 

448 GOSUB4300 :rein 231 

450 PRINT"{3 SPACES} QUEST ION # 5":PRINT"{2 DOWN} ^ 
{3 SPACES} CHOOSE ONE OF THE FOLLOWING :{ DOWN } " ^_J 

:rem 124 

460 PRINT" {3 SPACES}";QT$(4) :PRINT"{3 SPACES}" ;QT$ Q 
(5):PRINT"{3 SPACES}";QT$(6);"{D0WN}":PRINT" " 
; !W=4 :rem 247 V_J 

470 GOSUB900:IPX$="Q"THEN500 :rem 15 

475 IPX$="END"THEN600 :rem 200 ^ 

480 PRINT" {down} {3 SPACES }ANSWER=" ; AN? : S%=S%-5 

:rein 66 

490 FORW=1TO2500:NEXTW:GOTO540 :rem 143 \_j 

500 S%=S%+(5-W) !POKE54296,15:POKEVC+0,65 rrem 240 

510 POKEVC+16,0:POKEVC+21,l:J=8:POKESX+0,65irem 56 LJ 

520 FORV=65TO255STEP10:GOSUB550:NEXTV :rem 123 

530 POKEVC+21,0:POKE54296,0 :rem 25 ^ 

540 X=X+1:IFX<=NSTHEN305 :rem 228 

545 GOTO600 :rem 109 ^ 

550 POKEVC+29,0:POKEVC+0,V:POKESX+1, J:P0KESX+4,17; i| 

FORK=1TO20:NEXTK :rem 195 

560 POKEVC+29,l:POKESX+4,16iFORK=lT05:NEXTK:J=J+3 \_J 

:rem 59 

570 RETURN :rem 124 LJ 

600 PRINT" {BLK}{CLR} {down} {15 SPACES} {RVS} TEST OVE , . 

rUofF}" :rera 220 ^ 

610 PRINT" {3 down} your SCORE = ";S% :rem 86 ij 

620 IPS%<0THENS%=0 :rem 31 

625 X=X-1:IFX<1THENX=1 srem 107 LJ 

630 X=INT((S%*100)/(X*5)) :rem 37 

640 PRINT" {2 down} YOUR GRADE = " ;X; " {LEFT}%" ^ 

:rem 80 
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650 PRINT"{3 DOWN} PLAY AGAIN?" s PRINT "{DOWN} ENTER 

{RVS}y{OFF} or {RVS}n{OPF}" trem 158 

660 GETX$:IFX$=""THEN660 :reni 137 

670 IFX$="y"THEN205 :reni 72 

680 IFX$<>"N"THEN660 :rem 128 

690 GOSUB4000:PRINTCHR$(147) :END :rem 169 

700 PRINT "{blk}";FL$; : rem 36 

702 PRINT" {down}* * * * *{4 SPACES}U N I C O R N 
{5 SPACES}* * * * *"; :rein 120 

704 PRINT" {down} ";FL$; irem 169 

705 PRINT" {down} YOU WILL BE ASKED UP TO FIVE QUEST 
IONS" :rem 223 

706 PRINT "ABOUT SELECTED MYTHOLOGICAL CHARACTERS." 

:rem 204 

710 PRINT" {2 DOWN} POINTS WILL BE AWARDED DEPENDING 
ON HOW MANY QUESTIONS YOU NEED: { DOWN}" 

'.rem 156 

715 PRINT"{4 SPACES}1 QUESTI0N{2 SPACES}= 

{2 SPACES } 5. ": PRINT" {4 SPACES} 2 QUESTIONS = 
{2 SPACES}4." srem 94 

720 PRINT" {4 SPACES} 3 QUESTIONS ={2 SPACES } 3 .": PRI 
NT" {4 SPACES} 4 QUESTIONS ={2 SPACES} 2." 

:rem 173 

722 PRINT"{4 SPACES}5 QUESTIONS ={2 SPACES}1." 

:rem 8 

725 PRINT" {4 SPACES} ALL MISSED{2 SPACES }= -5." 

srem 218 

728 PRINT" {down} TYPE { RVS } END { OFF } TO STOP THE GAM 
E EARLY." :rein 207 

730 GOSUB4000 :rein 222 

740 FORX=832T0832+63:READZ:POKEX,Z:NEXTX :rem 80 
785 PRINT" {DOWN} {8 SPACES} ( PRESS ANY KEY TO START) 
"• trem 161 

787 POKEVC+39, 11 !POKEVC+23,0:POKEVC+28,0 : rem 116 

788 POKE2040,13:POKEVC+1,80 :rem 30 
790 GETX$:IFX$=""THEN790 :rem 145 
795 RETURN srem 133 
800 W=0 '.rem 92 
810 Z=INT( (RND(1)*NS)+1) :IFPEEK(CB+Z)=0THENRETURN 

:rem 15 

820 W=W+1:IFW<9THEN810 srem 62 

830 Z=l '"^em 99 

840 IFPEEK(CB+Z)=0THENRETURN srem 39 

850 Z=Z+1:GOTO840 srem 249 

900 X$= " " : POKE198 , : INPUTX$ : IFX$=AN$THENX$="Q" : RET 

URN '^^^ 
903 IFX$="END"THENRETURN srem 14 

905 POKESX+5,15 srem 106 
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910 POKE54296,15:POKEVC+33,0:POKKSX+0,31:POKESX+1, 
17 :rem 87 

920 POKESX+4,17:FORJ=1TO400:NEXTJ :rera 59 ^ 

930 POKESX+4,16:FORJ=1TO050:NEXTJ:POKESX+5,17 

:rem 68 

935 IFW<>4THENPRINTCHR$(147) :rem 223 

940 POKEVC+33,12:POKE54296,0:RETURN :rem 110 

1000 DATA" SHE WAS THE GREEK GODDESS OF WITCHCRAFT" LJ 

:rem 198 

1010 DATA"THIS TITAN KEPT HER POWERS WHEN ZEUS 

{4 SPACES} RULED THE UNIVERSE" : rem 18 

1020 DATA" SHE IS USUALLY SHOWN AS HAVING 3 HEADS" 

:rem 68 

1030 DATA"HOWLING DOGS WERE ASSOCIATED WITH HER 

{3 SPACES} SPELL" : rem 21 LJ 

1040 DATAHECATE, ARTEMIS, MEDUSA, 1 : rem 18 

1050 DATA"SHE WAS THE WORLD'S MOST BEAUTIFUL 

{6 SPACES} WOMAN" :rem 56 

1060 DATA"PARIS SEDUCED HER AWAY FROM MENELAUS, 

{3 SPACES} HER HUSBAND" : rem 80 ^ 

1070 DATA"THE TROJAN WAR WAS FOUGHT TO RECLAIM 

{4 SPACES }HER" :rem 246 LJ 

1080 DATA"SHE RETURNED TO HER HUSBAND AFTER PARIS 

{space} WAS SLAIN" : rem 74 LJ 

1090 DATAMEDEA, HELEN, CIRCE, 2 :rem 200 

1100 DATA"HE WAS KNOWN TO THE ROMANS AS MERCURY, ^ 

{2 SPACES }THE MESSENGER GOD" :rem 196 ^ 

1110 DATA"HE GUARDED TRAVELERS, SHEPHERDS AND 

{5 SPACES }TRADERS" : rem 28 

1120 DATA"A TRICKSTER WHO HELPED ROBBERS COMMIT 

{3 SPACES} CRIMES" : rem 89 LJ 

1130 DATA"HE USED A WINGED CAP AND WINGED ANKLES 

{2 SPACES }F0R traveling" :rem 150 ^ 

1140 DATAMARS,ACHILLES, HERMES, 3 : rem 211 

1150 DATA"HIS SONS WERE ROMULUS AND REMUS, TWIN 

{3 SPACES } FOUNDERS OF ROME" : rem 177 

1160 DATA"HE WAS THE ROMAN GOD OF WAR" :rem 85 

1170 DATA"THE WARRIOR GODDESS BELLONE TRAVELED AT LJ 

{space} HIS SIDE" :rem 45 

1180 DATA"HE WAS THE ROMAN GOD OF AGRICULTURE AND ^ 

{space} SPRING" :rem 90 , 

1190 DATAMARS, ZEUS, JASON, 1 : rem 143 ^ 

1200 DATA"HE INVENTED THE TROJAN HORSE" : rem 59 
1210 DATA"HIS TRIP HOME FROM THE TROJAN WAR TOOK 

{2 SPACES} TWENTY YEARS" :rem 231 LJ 

1220 DATA"HE RECLAIMED HIS WIFE PENELOPE BY 

{7 SPACES }KILLING HER 100 SUITORS" : rem 235 Lj 
1230 DATA"THE ROMANS CALLED HIM ULYSSES" i rem 144 
1240 DATAHERMES, ODYSSEUS, ZEUS, 2 :rem 33 ^ 
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DATA "THE GREEK GOD OF THE SEA, KNOWN TO THE 
{2 SPACES} ROMANS AS NEPTUNE" : rem 94 

DATA"HIS FATHER SWALLOWED HIM, BUT ZEUS FREED 
HIM" :rem 247 

DATA "HE CREATED THE HORSE" : rem 15 

DATA"HE WON HIS KINGDOM OF THE SEA BY 
{8 SPACES } CHOOSING LOTS" : rem 29 

DATAAGAMEMNON, HERMES, POSEIDON, 3 : rem 85 

DATA "HE WAS GOD OF THE WIND, THE SON OF 
{6 SPACES} AEOLUS" :rem 119 

DATA"IN LIFE, HE WAS THE KING OP CORINTH" 

:rem 52 

DATA"HE WAS A CRAFTY AND EVIL MAN" : rem 133 
DATA"HIS ETERNAL PUNISHMENT WAS PUSHING A 
{4 SPACES} BOULDER UPHILL" : rem 68 

DATASISYPHUS, DIONYSUS, ARTEMIS, 1 :rem 178 

DATA"HE WAS THE SON OP ZEUS AND THE FATHER OP 
PELOPS" :rem 34 

DATA"HE SINNED BY REVEALING THE SECRETS OF 
{3 SPACES} ZEUS" :rem 132 

DATA"HE KILLED HIS SON PELOPS AND SERVED HIM 
{space} AT A BANQUET" :rem 114 

DATA"HE WAS PUNISHED BY ETERNAL HUNGER AND 
{3 spaces} THIRST" :rem 34 

DATAHERACLES, TANTALUS, SISYPHUS, 2 trem 216 

DATA" AS THE GOD OP GODS, HE RULED OLYMPUS" 

:rem 162 

DATA "HE USED THE CYCLOPES TO HELP DEFEAT THE 
{space} TITANS" : rem 78 

DATA"HE GAVE AWAY THE SEA AND THE UNDERWORLD, 
BUT KEPT THE HEAVENS" :rem 177 

DATA"HIS ROMAN NAME IS JUPITER" : rem 103 

DATAP0SEID0N,AP0LL0,ZEUS,3 :rem 9 

DATA "HIS FATHER SERVED HIM AS A MAIN COURSE 
[2 SPACES }AT a BANQUET" :rem 30 

DATA" HIS SHOULDER WAS EATEN BY A GODDESS, BUT 
WAS REPLACED WITH IVORY" :rem 199 

DATA"HE WAS RESTORED TO LIFE AND WON HIS 
{5 SPACES} BRIDE IN A CHARIOT RACE" trem 219 
DATA"HE WAS CURSED FOR CHEATING IN A CHARIOT 
{SPACE} RACE" :rem 144 

DATAPELOPS, DAEDALUS, HERMES, 1 : rem 119 

DATA"A TITAN, HIS NAME MEANS 'FORETHOUGHT'" 

: rem 39 

DATA"HE CREATED MANKIND" : rem 172 

DATA"HE STOLE FIRE FROM HEAVEN TO GIVE TO 
{4 SPACES}MAN" srem 152 

DATA "HE WAS CHAINED TO A MOUNTAIN FOR THEFT, 
{SPACE}AND RESCUED BY HERCULES : rem 26 
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1540 DATAPHAETON, PROMETHEUS, PELOPS, 2 : rem 136 LJ 

1550 DATA "SHE WAS CREATED BY ZEUS TO THWART MAN" 

:rem 39 ^ 
1560 DATA"HER NAME MEANS 'GIFT OF ALL' BECAUSE SHE 

GOT GIFTS FROM ALL GODS" :rem 253 

1570 DATA "SHE MARRIED EPIMETHEUS — CREATOR OF ^ 

{4 SPACES} ANIMALS" :rem 12 

1580 DATA"BY OPENING A JAR, SHE UNLEASHED EVIL ON LJ 

{space} THE WORLD" :rem 208 

1590 DATAATHENA, ECHO, PANDORA, 3 : rem 117 LJ 

1600 DATA"HIS PRIDE ALMOST DESTROYED THE EARTH" 

:rem 85 

1610 DATA"HIS DREAM WAS TO BE RECOGNIZED AS 

{7 SPACES } APOLLO ' S SON" :rem 55 

1620 DATA"HE DROVE THE CHARIOT OF THE SUN TOO NEAR \_j 

THE EARTH" :rem 248 

1630 DATA" ZEUS KILLED HIM TO SAVE EARTH FROM THE LJ 

{2 SPACES} BURNING SUN" :rem 104 

1640 DAT APHAETON, AENEAS, MARS, 1 :rem 137 LJ 

1650 DATA "KNOWN TO THE ROMANS AS PLUTO, HE WAS GOD 

OF THE UNDERWORLD" :rem 45 ^ 

1660 DATA "APHRODITE TOLD EROS TO SHOOT HIM WITH 

{3 SPACES} ARROWS SO HE WOULD KNOW LOVE" 

:rem 142 LJ 
1670 DATA"HE FELL IN LOVE WITH PERSEPHONE AND 

{5 SPACES} KIDNAPPED HER" : rem 32 lJ 

1680 DATA" AS LONG AS HE KEEPS PERSEPHONE, THE 

{5 SPACES }EARTH IS DARK AND COLD" :rem 183 ^ 
1690 DAT AZEUS, HADES, MARS, 2 :rem 127 

1700 DATA"SHE WAS CAPTURED BY HADES TO BE HIS 

{5 SPACES} BRIDE" :rera 189 \_J 

1710 DATA"EATING POMEGRANATE SEEDS FORCED HER TO 

{2 SPACES} LIVE WITH HADES" 2 rem 140 LJ 

1720 DATA"HER MOTHER MADE EARTH BARREN UNTIL SHE 

{2 SPACES} WAS RECLAIMED" :rem 248 LJ 

1730 DATA"THE FOUR MONTHS SHE LIVES WITH HADES ARE 

CALLED WINTER" : rem 121 

1740 DATACASSANDRA, ECHO, PERSEPHONE, 3 :rem 69 ij 

1750 DATA "SHE ALWAYS HAD TO HAVE THE LAST WORD" 

:rem 193 \ ) 

1760 DATA" SHE PROTECTED ZEUS FROM HERA BY TRAPPING 

HER IN CONVERSATION" :rem 98 LJ 

1770 DATA"SHE WAS CURSED BY NEVER BEING ABLE TO 

{3 SPACES }SPEAK FIRST" :rem 241 

1780 DATA "SHE WASTED AWAY TO NOTHING BUT A VOICE i 

{2 SPACES} FOR LOVE OF NARCISSUS" :rem 209 

1790 DAT AECHO, ATHENA, HELEN, 1 :rem 220 \_J 

1800 DATA"HE LOVED NO MAN OR WOMAN" :rem 202 

1810 DATA"A WHITE FLOWER WITH A PURPLE HEART BEARS LJ 

HIS NAME" I rem 244 ^ 
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DATA"HE BROKE THE HEART OF ECHO AND CAUSED 
{3 SPACES} HER END" :rem 112 

DATA"HE FELL IN LOVE WITH HIS OWN REFLECTION" 

:rem 166 

DATASISYPHUS, NARCISSUS, JASON, 2 : rem 91 

DATA"HE WAS A POET AND A SINGER" :rera 249 

DATA"HE LOVED ONLY EURYDICE AND SHE DIED" 

:rein 153 

DATA"HE BEGGED HADES AND PERSEPHONE TO GIVE 
{2 SPACES }HIS BRIDE LIFE" : rem 194 

DATA"HE LOST EURYDICE AGAIN BECAUSE HE TURNED 
TO LOOK BACK" :rem 248 

DATAAGAMEMNON, DIONYSUS, ORPHEUS, 3 : rem 218 

DATA"AN ORACLE PROPHESIED HE WOULD KILL HIS 
{2 SPACES }GRANDFATHER" : rem 174 

DATA"HIS GOAL WAS TO GET THE HEAD OF MEDUSA" 

:rem 229 

DATA "HE CUT OFF THE HEAD OF MEDUSA AND 
{7 SPACES} ESCAPED UNHARMED" :rem 225 

DATA"HERMES GAVE HIM MAGIC GIFTS TO HELP HIM 
{ SPACE }GET MEDUSA" : rem 23 

DATAPERSEUS, PROMETHEUS, HERACLES, 1 : rem 23 

DATA"SHE WAS ONE OF THREE UGLY SISTERS" 

:rem 85 

DATA "SHE WAS THE ONLY ONE OF THREE SISTERS 
{3 SPACES }WHO COULD BE KILLED" :rera 217 

DATA "PEOPLE WHO LOOKED UPON HER WERE TURNED 
{2 SPACES }T0 STONE" :rem 242 

DATA "HER BLOOD DROPLETS ARE NOW POISONOUS 
{4 SPACES} DESERT SNAKES" :rem 19 

DATAMEDEA, MEDUSA, ATHENA, 2 : rem 111 

DATA"SHE WAS THE DAUGHTER OF CASSIOPEIA" 

:rem 150 

DATA "SHE WAS CHAINED TO A ROCK BECAUSE HER 
{3 SPACES }MOTHER WAS BEAUTIFUL AND VAIN" 

:rem 30 

DATA" SHE WAS OFFERED AS A SACRIFICE TO THE 
{3 SPACES} SEA GOD NEREUS" :rem 79 

DATA"PERSEUS SAVED HER, AND SHE BECAME HIS 
{3 SPACES} BRIDE" :rera 98 

DATAATHENA, ARTEMIS, ANDROMEDA, 3 irem 232 

DATA"HIS NAME MEANT 'GLORY OP HERA,' BUT HERA 
WANTED HIM KILLED" : rem 188 

DATA"HE DID 12 IMPOSSIBLE TASKS TO PLEASE 
{4 SPACES}KING EURYSTHEUS" :rem 11 

DATA"CALLED HERCULES BY THE ROMANS, HE WENT 
{2 SPACES} TO MOUNT OLYMPUS AFTER DEATH" 

:rem 177 

DATA"HE WAS KILLED BY THE BLOOD OF A CENTAUR" 

:rem 41 
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2090 DATAHERACLES , HADES , HERMES , 1 : rem 10 LJ 

3000 DATA"HE WAS RAISED BY A CENTAUR, CHIRON" 

:rem 46 ^ — ' 
3010 DATA"HE ORGANIZED A QUEST TO FIND THE GOLDEN 

{space} FLEECE" :rem 39 ^ 

3020 DATA"HIS SHIP WAS THE ARGO AND HIS WARRIORS 

{2 SPACES }WERE ARGONAUTS" :reni 71 

3030 DATA"HE WON THE FLEECE, BUT NOT THE THRONE OF LJ 

HIS KINGDOM" :rem 101 

3040 DATAAENEAS, JASON, APOLLO, 2 :rem 134 LJ 

3050 DATA"HER POTION GOT JASON THE GOLDEN FLEECE" 

:reni 129 ^ 
3060 DATA"SHE DELIVERED HER OWN BROTHER TO JASON 

{2 SPACES}T0 be KILLED" :rem 129 

3070 DATA" SHE KILLED KING PELIAS TO HELP JASON LJ 

{4 SPACES }BEC0ME KING" :rem 191 

3080 DATA" SHE KILLED JASON'S WIFE TO AVENGE HIS LJ 

{3 SPACES} BETRAYAL" trem 111 

3090 DATAMEDUSA, ARTEMIS, MEDEA, 3 :reni 205 LJ 

3100 DATA"HE WAS EARTH'S BEST ARCHITECT AND . 

{7 SPACES} SCULPTOR" trem 156 ^ 

3110 DATA"HE KILLED HIS NEPHEW BECAUSE TALUS HAD 

{2 SPACES} MORE TALENT THAN HE DID" : rem 226 
3120 DATA"THE MINOTAUR NOR ITS VICTIMS COULD LJ 

{6 SPACES} ESCAPE THE LABYRINTH HE MADE" 

:rem 204 L^ 
3130 DATA"HE MADE HUMAN WINGS, BUT HIS SON ICARUS 

{SPACE}FELL to EARTH AND DIED" trem 159 ^ 

3140 DATADAEDALUS, THESEUS, PHAETON,! trem 10 ij 

3150 DATA"BECAUSE HIS FATHER TRIED TO KILL HIM, 

{3 SPACES} HIS NAME MEANS 'SWOLLEN FOOT'" \_j 

trem 49 

3160 DATA"HE UNKNOWINGLY KILLED HIS FATHER, AS AN LJ 

{SPACE }ORACLE PREDICTED" trem 6 

3170 DATA"HE SOLVED THE RIDDLE OF THE SPHINX AND ^ 

[2 SPACES} MARRIED JOCASTA" trem 68 

3180 DATA"HE BLINDED HIMSELF AFTER LEARNING 

{8 SPACES} JOCASTA WAS HIS MOTHER" trem 22 (_j 

3190 DATATHESEUS, OEDIPUS, APOLLO, 2 trem 158 

3200 DATA"HE WANTED TO BE A HERO LIKE COUSIN LJ 

{6 SPACES} HERACLES" trem 73 

3210 DATA"MEDEA TRIED TO KILL HIM BEFORE AEGUS LJ 

{4 SPACES}NAMED him as son AND HEIR" trem 143 
3220 DATA"HE WAS CHOSEN AS A SACRIFICE TO THE ^ 

{5 SPACES }MIN0TAUR" trem 174 ij 

3230 DATA"HE SLEW THE MINOTAUR AND ESCAPED THE 

{4 SPACES} LABYRINTH" trem 148 

3240 DATASISYPHUS, PROMETHEUS, THESEUS, 3 trem 79 

3250 DATA"HE WAS THE MOST FAMOUS GREEK WHO FOUGHT LJ 

{SPACE} IN THE TROJAN WAR" trem 232 
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3260 DATA"HE COULD NOT BE HURT BECAUSE HIS MOTHER 

{SPACE}DIPPED him in the river STYX" :rem 127 
3270 DATA"HE killed THE TROJAN LEADER HECTOR AT 

{3 SPACES} THE SCAEAN GATE" :reni 207 

3280 DATA"HE WAS KILLED BY AN ARROW THAT PIERCED 

{2 SPACES} HIS VULNERABLE HEEL" :rem 44 

3290 DATAACHILLES, AGAMEMNON, AENEAS, 1 :rem 34 

3300 DATA"HE WAS A TROJAN PRINCE AND SON OF 

{7 SPACES} APHRODITE" : rem 100 

3310 DATA"HE KILLED TURNUS OVER THE LOVE OF 

{7 SPACES }LAVINIA" :rem 68 

3320 DATA"THE CAESARS TRACED THEIR ORIGIN TO HIM" 

trem 129 

3330 DATA "HE WAS THE ANCESTRAL HERO OF ROME": rem 19 
3340 DATAMARS, AENEAS, HERMES, 2 : rem 62 

3350 DATA"HE WAS THE KING WHO LED THE ACHAEANS IN 

{SPACE} THE TROJAN WAR" : rem 179 

3360 DATA"CLYTEMNESTRA, PRINCESS OF SPARTA, WAS 

{3 SPACES} HIS FAITHLESS WIFE" : rem 129 

3370 DATA"HE SACRIFICED A WOMAN TO SAVE HIS FLEET 

{space} FROM A WINDSTORM" irem 170 

3380 DATA"HE WAS KILLED BY THE LOVER 0F{11 SPACES} 

CLYTEMNESTRA" : rem 141 

3390 DATAAPOLLO, ACHILLES, AGAMEMNON, 3 :rem 63 

3400 DATA"SHE WAS THE GODDESS OF LOVE, CALLED 

{5 SPACES} VENUS BY THE ROMANS" : rem 83 

3410 DATA "SHE WAS FATHERED BY OURANOS AFTER HIS 

{3 SPACES }CASTRATION" :rem 68 

3420 DATA "SHE WAS THE GODDESS OF INTELLECTUAL ISM 

{2 SPACES} AND ALSO OF THE SKY" :rem 79 

3430 DATA"SHE WAS HONORED AS THE MOTHER OF AENEAS" 

:rem 136 

3440 DATAAPHRODITE, ARTEMIS, ATHENA, 1 

3450 DATA"HE WAS THE GOD OF PROPHECY AND LIGHT" 

:rem 167 

3460 DATA"ARCHERS, PHYSICIANS, AND MUSICIANS 

{6 SPACES}CALLED HIM THEIR PATRON" irem 216 
3470 DATA" AESCULAPIUS, GOD OP MEDICINE, WAS HIS 

{3 SPACES} SON" trem 47 

3480 DATA"HIS JOB WAS TO DRIVE THE CHARIOT OF THE 

{ SPACE }SUN ACROSS THE SKY" J rem 238 

3490 DATAPERSEUS,APOLLO, DIONYSUS, 2 :rem 12 

3500 DATA"APOLLO'S TWIN, SHE WAS GODDESS OF THE 

{3 SPACES }M00N PJHD OF BIRTH" :rem 57 

3510 DATA"HER ROMAN COUNTERPART WAS DIANA" :rem 34 
3520 DATA" SHE WAS GUARDIAN OF FORESTS AS WELL AS 

{2 SPACES }0F WILD ANIMALS" :rem 31 

3530 DATA "BECAUSE HE CHALLENGED HER TO A DISCUS 

{3 SPACES} -THROWING CONTEST, ORION DIED" 

:rem 139 
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3540 DATAATHENA,ANDROMEDA, ARTEMIS, 3 i rem 238 LJ 

3550 DATA"SHE WAS KNOWN TO ROME AS MINERVA, 

1 7 SPACES} GODDESS OF WAR AND WISDOM" : rem 89 ^ 
3560 DATA"SHE WAS FULLY ARMED FOR WAR AT BIRTH" ^ 

:rem 203 

3570 DATA"SHE WON ATHENS IN A CONTEST WITH LJ 

{3 SPACES} POSEIDON" : rem 89 

3580 DATA "HER TEMPLE IS THE PARTHENON" LJ 
3590 DATAATHENA, APHRODITE, CASSANDRA,! :rem 129 

3600 DATA"APOLLO GAVE HER THE GIFT OF PROPHECY" ^ 

:rem 250 ^, 
3610 DATA"SHE WAS CURSED THAT NO ONE WOULD BELIEVE 

HER PREDICTIONS" : rem 19 

3620 DATA "AGAMEMNON CAPTURED HER AFTER TROY FELL" 

:rem 214 LJ 
3630 DATA" SHE WAS MURDERED BY CLYTEMNESTRA" 

:rem 131 LJ 
3640 DATACIRCE, CASSANDRA, HECATE, 2 : rem 61 

3650 DATA"A FAMOUS SEER, SHE WAS A DAUGHTER OF THE 

SUN" :rem 95 

3660 DATA "SHE WAS BANISHED TO THE ISLE OF AEAEA 

{3 SPACES} FOR KILLING HER HUSBAND" : rem 158 LJ 
3670 DATA"SHE RESTORED FRIENDS OF ODYSSEUS WHO HAD 

BEEN TURNED INTO PIGS" : rem 169 LJ 

3680 DATA"LIVING WITH ODYSSEUS FOR A YEAR, SHE HAD 

HIS SON" :rem 185 ^ 

3690 DATAHECATE, CASSANDRA, CIRCE, 3 : rem 67 

3700 DATA"THE GOD OF WINE, HE WAS CALLED BACCHUS 

{2 SPACES} BY THE ROMANS" : rem 57 

3710 DATA"A PARTY ANIMAL, HIS ORGIES WERE ATTENDED 

BY SATYRS AND NYMPHS" : rem 52 LJ 

3720 DATA" HIS SACRED ANIMALS WERE THE BULL, GOAT 

{2 SPACES} AND SERPENT" :rem 83 ^ 

3730 DATA"HE WAS WORSHIPPED AS A GOD OF DRUNKEN- 

{2 SPACES} NESS ALL OVER THE KNOWN WORLD" ^ 

:rem 116 j 
3740 DATADIONYSUS, ZEUS, HADES, 1 : rem 199 

4000 POKE54296,15!FORX=0TO16 :rem 127 LJ 

4010 POKESX+0,NT%(X,1) :POKESX+1,NT%(X,0) : rem 91 
4020 POKESX+4,33:PORY=1TO150:NEXTY :rem 132 LJ 

4030 POKESX+4,32:FORy=lT025:NEXTY,X : rem 217 

4040 POKE54296,0: RETURN :rem 119 ^ 

4100 DATA" $",67, 15, 63, 75, 56, 99, 63, 75, 56, 99, 50, 60, 5 

6,99,50,60,44,193,50,60 :rem 49 

4110 DATA56, 99, 42, 62, 44, 193, 50, 60, 56, 99, 63, 75, 67,1 (_J 

5 :rem 28 

4200 DATA0, 0,2, 0,1, 4, 0,3, 248, 0,1, 208, 0,3, 248, 0,7,1 LJ 

56,0,15,0,0,30,0,31,254 :rem 219 
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■ ^ 4210 DATA0, 127, 252, 0,95, 252, 0,79, 252, 0,74, 10, 0,20, 

5,0,20,2,0,40,5,0,40,10 :reni 237 

4220 DATA0, 80, 4, 0,80, 8, 0,160, 0,0, 160, 0,0,0 : rem 8 
^ 4300 PRINTCHR$(147);"{23 DOWN} "; SPC( 15 ); "SCORE ="; 

S%; :rem 70 

(—) 4310 PRINT"{H0ME}";SPC(13);"{D0WN}U N I C O R N 

{8 DOWN}" :rem 184 

rn 4320 RETURN : rem 169 
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eroid Blast 



Skill area: Coordination 
Level: 2, 3, 4 

Equipment required: Joysticl( handy, but not essential 
Modification: No 



Asteroid Cluster 

You are commander of Space Station Omega, but your command 
and life are in jeopardy. A cluster of asteroids is on the way. As the 
asteroids surround the space station, the future of hundreds of 
people is in your hands. 

How to Play 

The computer will fire missiles from the left edge of the screen. 
You can cause each missile to climb or dive by using the joystick 
or the keyboard. If you use the keyboard, press W or f5 to cause 
the missiles to climb; press X or f7 to cause the missiles to dive. 
The object of the game is to clear all the asteroids with the mis- 
siles, saving your space station from destruction. Be careful not to 
hit your space station with a missile. 

Control your game by choosing three options: 

A. The number of asteroids in the asteroid duster; 

B. The speed of your missiles; 

C. The number of warheads each missile can fire. 

The computer will ask how many asteroids you want. Type a 
number from 10 to 200 and press the RETURN key. Next, youll be 
asked how fast you want the missiles to go; press a number from 
1 to 9, followed by the RETURN key, to indicate missile speed — 
1 is the fastest, and 9 is the slowest missile speed. Third, youll be 
asked how many shots you want each missUe to be capable of 
firing. Press 1, 2, 3, 4, or 5, and then the RETURN key 

The computer fires each missile, one by one. You control each 
missile's path by moving it up or down to hit the asteroids and 
avoid the space station. 

Scoring 

At the end of a game, the computer will tell you how many 
asteroids you destroyed, together with how many missiles it took. 
You will then be given a rank, ranging from private all the way to 
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4-star general . To increase your rank, you may want to choose a lJ 
higher number of asteroids, a faster missile speed, and only one 
or two warheads per missile. 



LJ 

Asteroid Blast ^ 

Remember, do not type the checksum number at the end of each hne. For example, do V ) 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in 

Appendix E. ^ ) 

1 REM ASTEROID BLAST :reni 230 (, 

100 DIMRT$(9),NT%(21,1),PT%(39,1),CH%(3),C%(3),DN$ 

(23) :rem 226 LJ 

105 Pl=( (PEEK( 53272 ) AND240 ) /16 ) *1024 :P2=55296 :VC=5 

3248:XC=54272:K1=960 :reni 33 LJ 

110 CH%(0)=8iCH%(l)=10:CH%(2)=12:CH%(3)=14:FOR 1=0 

TO 3jC%(I)=CH%(I)*1024:NEXT :reni 57 ^ 

115 RC%=PEEK( 53272 ): FOR 1=0 TO 3:CH%(l)=(RC%AND240 ^, 

)0RCH%(I) :NEXT:G0SUB 6100 irem 206 

120 FORX=0TO9:READX$:RT$(X)=X$:NEXTX :rem 36 LJ 

130 FORX=54272TO54296:POKEX,0:NEXTX :reni 175 

140 FORX=0TO21:FORY=0TO1:READZ:NT%(X,Y)=Z:NEXTY,X: LJ 

GOSUB5000 :rein 77 

150 GOSUB2000:PRINTCHR$(147) :MC=0:UC=0 :rein 3 ^ 

155 FORX=0TO24:POKEP1+(X*40),160:POKEP2+(X*40),0;N ^, 

EXTX :rein 217 

160 GOSUB1000 :reni 216 lJ 

170 Y=INT(RND(1)*25) :MC=MC+1:L1=(Y*40)+1+P1:L2=(Y* 

40)+l+P2:HC%=0 trem 21 LJ 

180 X=0:IF X1=0 THEN X1=L1:X2=L2 :rem 14 

185 A=PEEK(L1+X) !lFA=41THEN400 trem 1 LJ 

190 IPA>36ANDA<41THEN500 :rein 138 

200 POKE XI, 32: POKE X2,l rrem 43 

205 POKE Ll+X,42:POKEL2+X,2:FORZ=lTOSP%:KK=KK+l:IF 

KK>3THENKK=0 : rem 117 

210 POKE 53272, CH% (KK) :NEXT : rem 1 LJ 

215 X1=L1+X:X2=L2+X :rera 96 

220 AX=PEEK(197) :IFAX=9 0RAX=6 OR(PEEK( 56321 )AND1 ) LJ 

=0THEN600 :rem 165 

230 IFAX=23 0RAX=3 0R(PEEK( 56321 )AND2 )=0THEN650 ^ 

:rem 174 

235 IFAX=1THEN GOSUB 900 :rem 120 

240 X=X+1:IFX<=38THEN185 trem 177 LJ 

250 GOSUB6500 trem 226 

260 GOTO170 trem 105 LJ 

400 UC=UC+1 : POKE XI , 3 2 : P0KEX2 , 1 : POKELl+X , 43 : P0KEL2 

•fX,4 trem 246 

410 POKEXC+0 , 1 POKEXC+1 , 30 : POKEXC+4 ,129: POKEXC+5 , 1 

5fPOKEXC+6,15tPOKEXC+24,10 trem 63 

420 FORQ=lTO50tNEXTt POKEXC+4, 128 trem 231 {_j 

430 FORQ=lTO5:NEXTtPOKEXC+24,0 trem 127 
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440 IFUC=TC%THEN3000 : rem 170 

450 POKEH+X, 32 : P0KEL2+X, 1 : HC%=HC%+1 : IFHC%=MW%THEN 
GOSUB6500:GOTO170 :rem 87 

460 GOTO200 :rem 101 

500 POKE 53272, RC%:PRINT"{CLR}"DN$(7)TAB(11)"{RVS1 
STARBASE DESTROYED { OFF } " :rem 3 

510 POKEXC+0 , : POKEXC+1 , : POKEXC+5 , 15 : POKEXC+6 , 15 : 
POKEXC+24,15:Y=50 :rem 28 

520 F0RX=15T01STEP-1 : rem 231 

530 POKEXC+1, Y:Y=Y-3:POKEXC+4, 17 :rem 195 

540 POKEVC+33,X:FORZ=lTO100:NEXTZ:POKEXC+4, 16 :NEXT 
X :reni 45 

:rein 184 
trem 149 
:reni 176 
:rem 243 
:rem 235 
:rem 242 
:rein 247 
:rem 176 
:reni 123 
:rein 243 
:reni 48 
:rem 186 
:rem 73 
I rem 183 
:rem 80 
:rem 206 
:rem 138 
:rem 185 
:rem 142 
:rem 24 
:rem 26 
:rem 165 
:rem 216 
:rem 61 
srem 222 



550 POKEXC+24,0:POKE198,0 
560 DD%=(SP%+5)/2:GOTO3000 
600 IFY<1THEN240 

610 Y=Y-1 :Ll=Ll-40 :L2=L2-40 :GOTO240 
650 IFY>23THEN240 

660 Y=Y+1:L1=L1+40:L2=L2+40:GOTO240 
900 FOR 1=0 TO 399:NEXT 
910 IP PEEK ( 197 )=64THEN 910 
920 RETURN 

1000 KK=0:POKE53272,CH%(KK) 
1010 FOR 1=0 TO 9-SP% 
1020 Y=3*INT(RND(1)*8) 
1030 Z=3*INT(RND(1)*9)+10 
1080 IFPEEK ( P1+Z+40*Y) < > 32THEN1020 
1090 PRINTDN$(Y)TAB(Z)"{BLK}"SS$:NEXT 
1100 F0RX=1T0TC% 
1110 KK=KK+1 : IFKK>3THENKK=0 
1120 POKE53272,CH%(KK) 
1130 Y=INT(RND(1)*25) 
1140 Z=INT(RND(1)*30)+10 
1150 Y=(Y*40)+Z 
1160 IFPEEK(P1+Y)<>32THEN1130 
1170 POKEPl+Y,41:POKEP2+Y,6:NEXT 
1180 FORX=0 TO 999: NEXT 
1190 PRINTDN$ ( 23 ) : RETURN 
2000 PRINTCHR$(147) " {2 DOWN} {3 SPACES}ENTER NUMBER 
OF ASTEROIDS: {14 SPACES} (10 TO 200)" :rem 78 
2010 INPUT" {down} ";X$:TC%=VAL(X$) :IFTC%<10 0RTC%> 

200THEN2010 :rem 131 

2020 PRINT"{2 DOWN} {3 SPACES}ENTER MISSILE SPEED: 

{20 SPACES }(1=FAST -TO- 9=SL0W) " :rem 155 

2030 INPUT"{D0WN} ";X$:SP%=VAL(X$) :IFSP%<1 0RSP%>9 

THEN2030 :rem 34 

2040 PRINT" {2 DOWN} {3 SPACES}ENTER NUMBER OF WARHE 

ADS: {15 SPACES} (I TO 5 PER MISSILE)" : rem 117 
2050 INPUT"{DOWN} " ;X$ :MW%=VAL(X$ ) : IFMW%<1 0RMW%>5 

THEN2050 srem 37 

2060 RETURN :rem 168 
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3000 POKES 3272, RC%:PRINTCHR$( 147); "{2 D0WN}"SPC(15 LJ 

);"{RVS}GAME{2 SPACES } OVER { OFF}" trem 71 

3010 PRINT"{2 DOWN} {3 SPACES}NUMBER OF ASTEROIDS = ^ 

";UC:POKE198,0 :rem 58 , 

3020 PRINT"{2 D0WN}{3 SPACES}NUMBER OF MISSILES ^ 

{2 SPACES }=";MC :rem 135 

3030 X=INT( 10* ( ( UC/ ( MC*MW% ) + {UC/TC% ) ) /2 ) ) -DD%-INT ( 

3*(SP%/9)) :rem 224 O 

3040 IFX<0THENX=0 :rem 14 

3050 IFX>9THENX=9 : rem 35 LJ 

3060 PRINT"{3 down} {3 SPACES}Y0UR RANK IS: ";RT$(X 

) :rem 204 

3080 PRINT"{4 DOWN} {9 SPACES}PLAY AGAIN?" :rem 181 ^, 
3085 PRINT" {DOWN} {2 SPACES} {RVS}s{OFF}AME GAME":PR 

INT"{D0WN}{2 spaces} {RVS}n{ off }EW GAME":PRINT LJ 

"{down} {2 spaces} {RVS}Q{ OFF} UIT" jrem 93 

3090 GETX? jIPX$=""THEN3090 :rein 233 LJ 

3100 DD%=0:IPX$="N"THEN150 :rem 183 , , 

3110 IPX$="S" THENMC=0 1 UC=0 j PRINT " { CLR } " : POKES 3 272, 

CH%(0):GOTO 155 :rem 132 LJ 

3120 IPX$="Q"THENGOSUB7000jPRINTCHR$(147) :END 

:rein 223 

3130 GOTO 3090 :rem 204 

5000 POKEVC+32,8:POKEVC+33,l :rera 113 

5005 PRINTCHR$(147);"{BLK}{D0WN}{RVS}{13 SPACES}AS LJ 

TEROID BLAST {13 SPACES} { OFF} " ; :rein 21 

5010 PRINT" {3 DOWN} YOU MUST SAVE YOUR SPACE STATIO LJ 

N FROM A" :rem 145 

5020 PRINT "GROUP OF ASTEROIDS SURROUNDING IT." ^ 

:rem 147 

5030 PRINT" {2 DOWN} YOUR SHIP'S COMPUTER FIRES MISS 

ILES PROM"; :rein 120 (_j 

5035 PRINT"THE LEFT SIDE OP THE SCREEN." :rem 51 
5040 PRINT" {2 D0WN}Y0U CAN CAUSE EACH MISSILE TO C LJ 
LIMB OR" I rem 206 

5050 PRINT"DIVE BY USING THE JOYSTICK OR KEYBOARD: ^ 

trem 97 LJ 

5060 PRINT" {2 down} {5 SPACES} ( {RVS}W OR F5{0FP}=CL 

1MB {3 SPACES} {RVS}X OR F7{0FF}=DIVE) " : IFPEEK( LJ 
653)>1THEN 5150 :rem 143 

5065 GOSUB 7000:GOSUB 6000 :rem 151 ^ 

5070 PRINTCHR$(147);"{3 DOWN} IF YOU CAUSE A MISSIL 
E TO HIT YOUR" :rem 36 

5080 PRINT"SPACE STATION, THE GAME WILL BE OVER. " i_j 

:rem 124 

5090 PRINT" {2 DOWN} YOU CAN CONTROL THE DIFFICULTY LJ 
{space} OF EACH {2 SPACES} GAME BY THREE FACTORS 
i" :rem 164 
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^ 5100 PRINT" {down} {2 SPACES }Q NUMBER OF ASTEROIDS": 

p-j PRINT" {down} {2 SPACES }Q MISSILE SPEED" 

trem 249 

5105 PRINT" {down} {2 SPACES }Q NUMBER OP MISSILE WAR 
HEADS" :rem 65 

^ 5110 PRINT" {2 D0WN}A MISSILE WITH MORE THAN 1 WARH 

EAD CAN" :rem 170 

5120 PRINT"DESTROY MULTIPLE ASTEROIDS PER FLIGHT." 

:6OSUB6000 :rein 48 

5150 FORI=0TO 3:FORJ=C%(l)+296TOC%(l)+343:READZ:PO 
O KEJ,Z:NEXT :rem 128 

5155 FORJ=C% ( I ) +2 5 6T0C % ( I ) +2 6 3 : POKE J , : NEXT 

:rein 251 

5160 FORJ=C%(I)+1280TOC%(I)+1287:POKEJ,255:NEXT 

;rem 200 

— . 5165 FORJ=C%(l)+344TOC%(l)+351:POKEJ,INT(RND(9)*25 

' 6):NEXT:NEXT :reni 178 

r-) 5180 SS$="%&{D0WN}{2 LEFT} '(": IFPEEK( 653 ) >1THENRET 

URN :rem 89 

r-) 5190 PRINT "{CLR}"DN$(12)TAB(17)"MISSILE":GOSUB550 

:reni 11 

5200 PRINT DN$(12)TAB(16)"{PUR}* * * * *"iGOSUB551 
:rein 132 

5210 PRINT DN$(12)TAB(16)"{BLK}ASTEROID"iGOSUB5500 
(— ^ :rem 1 

5220 PRINT DN$(12)TAB(16)"{BLU}) ) ) ) )":GOSUB551 
O :rein 4 

5230 PRINT DN$(12)TAB(16)"{BLK}STARBASE":GOSUB5500 

:reni 253 

5240 PRINT DN$ (11) TAB ( 19 )SS$:GOSUB5510: RETURN 

:rem 188 

5500 FORI=0TO 999:NEXT:POKE53272,CH%(0) :PRINT" 

{CLR}" I RETURN :rem 175 

O 5510 FORI=0TO 9:FORKK=0TO 3:POKE53272,CH%(KK) :FORJ 

=0TO 19:NEXT:NEXT:NEXT :rem 189 

5520 POKE 53272, RC%:PRINT"{CLR}":RETURN :reni 156 
6000 PRINT DN$(23)"{12 SPACES }( PRESS ANY KEY)"; 

'.rem 237 

^ 6010 GETX$sIFX$=""THEN6010 :reni 223 

6020 RETURN :rein 168 

O 6100 DN$(0)="{HOME}":FORI=1TO 23 : DN$ ( I )=DN$ ( l-l )+" 

{down} ":NEXT: RETURN trem 250 

r-) 6500 POKE X1,32:POKEX2,1:X1=X1-40:X2=X2-40:REM *SC 

ROLL* :rem 219 

6510 FORX=0TO39 :rem 135 

6520 PT%(X,0)=PEEK(P1+X) :rem 82 

6530 PT%(X,1)=PEEK(P2+X) :rem 85 

r-) 6540 NEXT: PRINT "{down}"; :rem 101 

6550 FORX=0TO39 :rein 139 
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6560 POKEP1+K1+X,PT%(X,0) :rem 165 

6570 P0KEP2+K1+X,PT%(X,1) :reni 168 

6580 NEXT :rem 18 

6590 RETURN :reni 180 
7000 POKEXC+0 , : POKEXC+1 , : POKEXC+5 , 79 : POKEXC+6 , 12 

9:POKEXC+24,15 : rem 88 

7010 FORX=0TO21 :rem 122 

7020 Y=INT(NT%(X,0)/256) :rem 51 

7030 POKEXC+0,NT%(X,0)-(Y*256) :rem 133 

7040 POKEXC+1, Y:P0KEXC+4, 17 trem 109 

7050 FORY=1TONT%(X,1)*60:NEXTY :rein 76 

7060 POKEXC+4,16:NEXTX:POKEXC+24,0 : rem 75 

7070 RETURN :rem 174 
9000 DATA PRIVATE, SERGEANT, LIEUTENANT, CAPTAIN, MAJO 

R, COLONEL :rem 177 

9010 DATA "* GENERAL","** GENERAL","*** GENERAL"," 

**** GENERAL" :rera 20 
9100 DATA6430 , 2 , 5407 , 2 , 6430, 4 , 6430, 2 , 5407 , 2 , 6430 , 4 

,6430,2,5407,2,6430,2 :rem 212 
9110 DATA7217, 2, 6430, 2, 5407, 2, 6430, 4, 5407, 2, 5728, 2 

,6430,2,5728,4 :rem 145 
9120 DATA4817,2,6430,2,5728,4,4817,2,4291,8 

:rem 143 

63000 DATA0,7,31,56,56,100,98,97 :rem 90 

63001 DATA0, 224, 248, 28, 220, 230, 70, 134 :rem 64 

63002 DATA97,98,103,59,56,31,7,0 :rem 98 

63003 DATAl 34, 70, 38, 28, 28, 248, 224,0 trem 238 

63004 DATA0,48,122,127,31,62,126,112 : rem 15 

63005 DATA0, 0,240, 28, 31, 28, 240,0 :rem 64 

63006 DATA0,7,31,57,49,97,97,97 :rem 65 

63007 DATA0, 224, 248, 28, 12, 38, 54, 254 :rem 240 

63008 DATA127,108,100,48,56,31,7,0 :rem 181 

63009 DATA134, 134, 134, 140, 156, 248, 224,0 :rem 175 

63010 DATA0, 204, 238, 254, 124, 120, 124, 24 :rem 109 

63011 DATA0, 0,240, 28, 47, 28, 240,0 :rem 68 

63012 DATA0,7,31,56,56,100,110,109 :rem 168 

63013 DATA0, 224, 248, 28, 28, 38, 70, 134 :rem 239 

63014 DATA97,98,100,56,56,31,7,0 :rem 95 

63015 DATA182,118,38,28,28,248,224,0 trem 39 

63016 DATA14, 126, 124, 248, 254, 94, 12,0 trem 28 

63017 DATA0, 0,240, 28, 79, 28, 240,0 trem 79 

63018 DATA0,7,31,57,51,103,97,97 trem 97 

63019 DATA0, 224, 248, 28, 12, 6, 6, 254 trem 139 

63020 DATA127,96,96,48,56,31,7,0 trem 99 

63021 DATA134, 134, 230, 204, 156, 248, 224,0 trem 167 

63022 DATA24,62,30,62,127,119,51,0 trem 175 

63023 DATA0, 0,240, 28, 143, 28, 240,0 trem 116 
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Black Hole 

Skill area: Coordination 
Level: 2, 3, 4 

Equipment required: Joysticl< handy, but not essential 
Modification: No 



Space Fleet 

You are a star fleet captain, and you're in a tight spot. Yoiir ships 
must get to Espilon Eridani, but between the fleet and the star is a 
series of black holes. Any ship that enters a black hole is lost for- 
ever. Your assigrunent is to get as many ships as possible through 
the field of black holes and reach Espilon Eridani on schedule. 

How to Play 

Each ship, launched by the computer, travels from left to right. 
Manipulate your ship around the black holes towards the right 
edge of the screen, using the joystick or the keyboard. When 
using the keyboard, pressing W or f5 causes your ship to climb; 
pressing X or f7 causes it to dive. 

You can control the game by choosing three options: 

A. The number of starships in your fleet; 

B. The speed your starships will travel; 

C. The number of black holes that will block your path. 

The computer first asks how many starships you want. Type 
any number from 10 to 50 and then press the RETURN key. Next, 
youH be asked how fast you want your ships to travel. Type any 
number from 1 (the fastest speed) to 9 (the slowest speed), and hit 
RETURN. Third, indicate how many black holes you want. Type 
any number from 50 to 200 and then press RETURN. 

If you wish to speed past the introductory screens, just hold 
down the Commodore key when the program first starts nmning. 

Scoring 

Your score is based on the number of starships in your fleet, as 
well as the number that successfully navigate the field of black 
holes. You will also receive points for unsuccessful trips based on 
how far you did travel. You will be awarded a rank from private to 
4-star general, depending on your navigational prowess. To in- 
crease your chances of a high ranking, you may want to choose a 
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larger number of starships, a fast starship speed, ar\d a large num- ^ 
her of black holes. {_j 

Black Hole lj 

Remember, do not type the checksum number at the end of each line. For example, do 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in — ^ 

Appendix E. , 

1 REM BLACK HOLE :rem 154 

100 DIMRT$(9),NT%(44,1),PT%(39,1),CH%(3),C%(3),DN$ ^ 

(23) :rem 231 

105 VC=53248:MC=54272:K1=960 :reni 15 

110 CH%(0)=8:CH%(1)=10:CH%(2)=12:CH%(3)=14:RC%=PEE 

K( 53272 ) :GOSUB 5600 :rem 142 

115 FOR 1=0 TO 3:C%(I)=1024*CH%(I) :CH%(I)=(RC%AND2 LJ 

40 ) 0RCH% (I ) : NEXT : rem 87 

120 PORX=54272TO54296:POKEX,0:NEXTX :rem 174 ^ 

125 P1=((PEEK( 53272 )AND240)/16)*1024:P2=55296 

:rein 101 

130 FORX=0TO9:READX$:RT$(X)=X$:NEXTX : rem 37 

135 FORX=0TO44 : FORY=0TO1 : READZ : NT% ( X , Y ) = Z : NEXTY , X 

:rem 215 I ) 

140 GOSUB5000 :rem 218 

150 GOSUB2000:PRINTCHR$ (147) :SD%=0 :rem 240 LJ 

155 PORX=0TO24 : POKEPl + ( X* 40 ) , 1 60 : P0KEP2+ ( X* 40 ) , : N 
EXTX :rem 217 

160 GOSUB1000 :rem 216 

165 F0REC=1T0EC% :rem 201 

170 Y=INT(RND(1)*25) :L1=(Y*40)+1+P1:L2=(Y*40)+1+P2 {_) 

:rem 203 

180 X=0 :rem 94 LJ 

190 IFPEEK(L1+X)=81THEN400 :rem 8 

200 POKE L2+X,2:POKEX1,32:POKEL1+X,90 :rem 161 LJ 

205 FOR KK=0 TO 3:P0KE 53272 ,CH% (KK) :NEXT KK 

:rem 149 

210 FOR Z=0 TO SP% :NEXTZ:POKE53272,CH%(0) : rem 72 
220 A=PEEK(197) :IF A=6 OR A=9 0R(PEEK(56321)AND1)= 

0THEN600 :rem 157 LJ 

230 IF A=23 OR A=3 0R( PEEK( 56321 )AND2 )=0THEN650 

:rem 254 LJ 
235 X1=L1+X :rem 96 

240 X=X+1:IFX<=38THEN190 :rem 173 

250 GOSUB6500:NEXTEC:GOTO3000 : rem 25 

400 POKE XI, 32 :rem 221 

405 SD%=SD%+1:POKEMC+0,0:POKEMC+1,10 : rem 60 LJ 

410 POKEMC+5,15:POKEMC+6,15:POKEMC+4,17 :rem 30 
420 POKEVC+32,0:POKEVC+33,0:POKEMC+24,9 :rem 40 LJ 
430 FORQ=1TO200:NEXTQ:POKEMC+4,16 :rem 39 

440 POKEMC+24,0:POKEVC+32,2:POKEVC+33,15 :rem 89 LJ 
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450 GOTO250 :rem 105 

600 POKE X1,32:IFY<1THEN235 : rem 55 

605 X1=L1+X .-rem 97 

610 Y=Y-1:L1=L1-40:L2=L2-40:GOTO240 :rem 243 

650 POKE X1,32:IFY>23THEN235 trem 114 

655 X1=L1+X trem 102 

660 Y=Y+1:L1=L1+40:L2=L2+40:GOTO240 :rem 242 

1000 F0RX=1T0BH% trem 192 

1010 Y=INT(RND(1)*25) :reni 139 

1020 Z=INT(RND(1)*30)+10 trem 21 

1030 Y=(Y*40)+Z :reni 23 

1040 A=PEEK(P1+Y) :IFA<>32THEN1010 :rem 152 

1050 P0KEP1+Y,81 :POKE P2+Y,0:NEXTX :rem 43 

1060 FORX=1TO1000:NEXTX trem 169 

1070 PRINTDN$(23) :rem 193 

1080 RETURN :rem 169 

2000 PRINTCHR$(147)7"{2 DOWN} {3 SPACES} ENTER # OF 

{SPACE}STARSHIPS{2 SPACES} (10 TO 50)": rem 143 
2010 INPUT"{D0WN} ";X$:EC%=VAL(X$) iIFEC%<10OREC%>5 

0THEN2010 :rem 41 

2020 PRINT"{2 down} {3 SPACES}ENTER STARSHIP SPEED" 

:PRINT"{3 SPACES} (0=FAST -TO- 9=SL0W) " 

:rem 195 

2030 INPUT"{D0WN} ";X$:SP%=VAL(X$) :IFSP%<0ORSP%>9T 

HEN2030 :rem 33 

2040 PRINT" {2 DOWN} {3 SPACES} ENTER # OF BLACK HOLE 

S":PRINT"{3 SPACES} (50 TO 200)" trem 189 

2050 INPUT"{D0WN} ";X$:BH%=VAL(X$) :IFBH%<50ORBH%>2 

00THEN2050 trem 104 

2060 SP%=SP%*7 trem 246 

2070 RETURN trem 169 

3000 POKE 53272,RC%:PRINTCHR$(147);SPC(11);" 

{2 D0WN}{RVS}G a M E{4 SPACES}0 V E R{0FF}" 

trem 255 

3002 X$=STR$(EC%) trem 153 

3004 IFLEN(X$) <4THENX$=" "+X$ :GOTO3004 trem 127 

3005 PRINT" {3 DOWN} NUMBER OF STARSHIPS ="jX$:POKE 
198,0 trem 70 

3006 X$=STR$(SD%) trem 172 
3008 IFLEN(X$)<4THENX$=" "+X$ :GOTO3008 trem 135 
3010 PRINT"{D0WN} NUMBER DESTR0YED{4 SPACES}=";X$ 

trem 22 

3012 PRINT "{down} AVERAGE SURVIVAL ="STR$(INT(SC/ 
EC%))" PARSEC(S)" trem 30 

3030 X=INT(SC/(4*EC%) ) tX=INT(X/(200/(BH%+(200-BH%) 
/2)+((SP%/7)-1)/4)) trem 99 

3035 IF EC%=SD% AND SC<5 THEN X=0 trem 206 

3040 IFX<0THENX=0 :rem 14 

3050 IFX>9THENX=9 :rem 35 
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3060 PRINT" {2 DOWN} {9 SPACES} YOUR RANK IS: {DOWN}": ^ 

PRINTSPC(9);RT$(X) :reni 3 

3080 PRINT"{2 DOWN} {9 SPACES}PLAY AGAIN?" :rem 147 
3085 PRINT" {down} {4 SPACES} {RVS}s{OFF}AME GAME":PR LJ 
INT"{D0WN}{4 spaces} {RVS}n{ off }EW GAME":PRINT 
"{down} {4 SPACES} {RVS}q{OFF}UIT" :reni 93 LJ 

3090 GETX$:IPX$=""THEN3090 :rein 233 

3100 IFX$="N"THENSC=0:GOTO 150 :rera 217 ^ 

3110 IFX$="Q"THENGOSUB7000:PRINTCHR$(147) :END 

:reni 222 

3120 IFX$="S"THENSO=0:SD%=0: PRINT "{CLR}":G0T0 155 {_) 

:rem 230 

3130 GOTO 3090 irem 204 LJ 

5000 P0KEVC+32,2:P0KEVC+33,15 :rem 160 

5005 PRINTCHR${147);"{DOWN}{BLK}{RVS}{10 SPACES }B ^ 

{SPACE}L a C K{4 SPACES}H L E{10 SPACES} ^ 

{off}"; :rein 201 

5010 PRINT" {2 D0WN}Y0U MUST PILOT A FLEET OF STARS LJ 

HIPS" :rem 142 

5020 PRINT"ACROSS SPACE, AVOIDING THE BLACK HOLES. LJ 

" :rem 51 

5030 PRINT" {2 D0WN}EACH SHIP TRAVELS FROM THE LEFT ^ 

SIDE OF THE SCREEN TO THE RIGHT." : rem 236 
5040 PRINT" {2 D0WN}Y0U CAN CAUSE EACH SHIP TO CLIM 

B OR DIVE"; : rem 79 lJ 

5050 PRINT"BY USING THE JOYSTICK OR THE KEYBOARD: " 

:rem 26 I ) 

5060 PRINT"{2 D0WN}{4 SPACES} ( {RVS}W OR F5{0FF}=CL 

IMB{3 SPACES}{RVS}X or F7{0FF}=DIVE)" :rem 73 '-J 
5070 IF PEEK(653)>1 THEN 5090 :rem 219 ^, 

5080 GOSUB 7000:GOSUB 6000 :rem 148 

5090 PRINT"{CLR}{2 D0WN}Y0U CAN CONTROL THE DIFFIC LJ 

ULTY of the {3 SPACES} GAME BY THREE FACTORS:" 

: rem 7 I ) 

5100 PRINT"{2 DOWN} {3 SPACES}+ NUMBER OF STARSHIPS 

":PRINT"{D0WN}{3 SPACES }+ STARSHIP SPEED" ^ 

:rem 41 . . 

5120 PRINT" {DOWN} {3 SPACES }+ NUMBER OF BLACK HOLES ^ 

" :rem 11 

5130 FOR 1=0 TO 3:F0R J=C%(l)+256 TO C% ( I )+263 : POK 

E J,0:NEXTJ :rem 235 LJ 

5135 FOR J=C%(I)+1280 TO C% ( I )+1287 : POKE J,255:NEX 

TJ :rem 20 LJ 

5140 FOR J=C%(l)+648 TO C% ( I ) +655 :READ ZZ:POKE J,Z 

Z:NEXTJ :rem 215 

5145 FOR J=C%{l)+720 TO C%( I )+727 :READ ZZ:POKE J,Z 

Z: NEXT J, I :rem 72 

5150 IF PEEK(653)>1 THEN RETURN :rem 236 lJ 

5160 GOSUB 6000 :rem 18 
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PRINT " { CLR } " DN$ ( 1 2 ) TAB ( 16 ) " { BLK } STARSHIPS " : G 
OSUB 5500 :rein 72 

PRINT DN$(12)TAB(16) "{RED}Z^{2 SPACES }Z 
{2 SPACES}^{2 SPACES }Z":GOSUB 5510 :rem 161 
PRINT DN$(12)TAB(15) "TbLK}BLACK H0LES":G0SUB 
{space} 5500 :rem 136 

PRINT DN$(12)TAB(14)"{BLK}q{2 SPACES }Q 
{2 SPACES }q{ 2 SPACES }q{ 2 SPACES }Q" :rem 60 
GOSUB 5510 1 RETURN :reni 57 

FOR 1=0 TO 999: NEXT: PRINT "{CLR1":P0KE 53272, 
CH%(0) : RETURN :rein 175 

FOR 1=0 TO 9:F0R KK=0 TO 3:P0KE 53272 ,CH% (KK) 
:FOR J=0 TO 19:NEXTJ,KK,I : rem 76 

PRINT "{CLR}": POKE 53272, RC% : RETURN :rem 156 
DN$(0)="{HOME}":FOR 1=1 TO 23 :DN$ ( I )=DN$ (l-l ) 
+"{DOVm}":NEXTI: RETURN :rem 71 

PRINTDN$(23)TAB(12)"(PRESS ANY KEY)";:rein 120 

GETX$:IPX$=""THEN6010 :rem 223 

RETURN trem 168 

REM *** SCROLL THE SCREEN *** :rein 27 

SC=SC+X-8-10*(X=39) :rem 43 

POKE X1,32:IPEC=EC%THENRETURN :rera 100 

FORX=0TO39 rrera 136 

PT%(X,0)=PEEK(P1+X) :rem 87 

PT%(X,1)=PEEK(P2+X) :rem 85 

NEXTX :reni 102 

PRINT" {down}"; :rem 237 

FORX=0TO39 :reni 140 

POKEP1+K1+X,PT%(X,0) I rem 166 

P0KEP2+K1+X,PT%(X,1) :rem 169 

NEXTX :rem 107 

RETURN :rem 172 

POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 12 
9:POKEMC+24,15 :rem 33 

FORX=0TO44 rrem 127 

Y=INT(NT%(X,0)/256) :Z=NT%(X,0)-(Y*256) 

:rem 110 

POKEMC+0, Z: POKEMC+1, Y:P0KEMC+4, 17 trem 48 

F0RZ=1T0NT%(X,1)*75:NEXTZ :rem 83 

POKEMC+4,16:FORZ=1TO10:NEXTZ,X rrem 193 

POKEMC+24,0 :rem 121 

RETURN rrem 174 

DATA PRIVATE, SERGEANT, LIEUTENANT, CAPTAIN, MAJO 
R, COLONEL rrem 177 

DATA " * GENERAL " , " * * GENERAL ","*** GENERAL " , " 
**** GENERAL" rrem 20 

DATA2145, 2,0, .3,2145,2,2864,2,2864,2,2864,2,2 
864,2,3215,2,0, .3,4291,2,3823 trem 89 
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9110 DATA2, 3608, 2, 2864, 2, 0,3, 2145, 2, 2408, 2, 4817, 2, U 
4291,2,3823,2,3608,2,3215,2 :rein 251 

9120 DATA2864, 2, 2864, 4, 2703, 2, 3215, 1,3215, 2, 3215, 2 ^ 
,3215,2,3215,2,3215,2,3608,2 :rem 38 

9130 DATA4050, 2, 4291, 2, 3215, 2, 0,3, 4291, 2, 4050, 2, 36 ^ 
08,2,3215,2,2864,2 :reni 51 (i 

9140 DATA2703,2,2408,2,3215,2,2025,2,2145,4 

:reni 106 LJ 

63000 DATA0, 124, 254, 254, 254, 254, 254, 124 :rem 172 

63001 DATA0, 248, 28, 31, 28, 248, 0,0 :rem 76 LJ 

63002 DATA0, 68, 254, 124, 124, 124, 254, 68 trem 80 

63003 DATA0, 248, 28, 47, 28, 248, 0,0 :rem 85 

63004 DATA0,0,68,56,56,56,68,0 :rem 248 ij 

63005 DATA0, 248, 28, 79, 28, 248, 0,0 :rem 92 

63006 DATA0,0,0, 40, 16, 40,0,0 :rem 108 LJ 

63007 DATA0, 248, 28, 143, 28, 248, 0,0 :rem 134 
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Earthworms 

Skill area: Coordination 
Level: 3, 4 

Equipment required: Joysticl< 
Modification: Yes 

The Algae Pit 

You are an earthworm, arid you love eating algae. The best algae 
in the world are found in the algae pit. Unfortunately for you, the 
algae pit is owned by a person who doesn't like earthworms. In 
order to protect his precious supply of algae from you, he has 
sprinkled the pit with pebbles and encircled it with an electric 
fence. You got inside the fence during a power outage, but now 
that the power is on, you don't want to touch the fence. Running 
into a pebble wiU cause you indigestion. Finally, you are so hun- 
gry for algae that you must eat algae with every move you make, 
or you won't be able to go on. This means you won't be able to 
backtrack over territory you've covered before. It isn't an easy 
task, but it's your life. 

How to Play 

You can choose one of five skill levels. Level 1 is the easiest. When 
the computer asks which skill level you prefer, tj^e the number 
you want and wait, joystick in hand, for the game to start. 

As soon as "Earthworms" begins, the earthworm will begin 
moving on its own. You must control the movement to eat algae 
balls or avoid the pebbles with the joystick. Be careful not to run 
into the fence around the border, or the game is over. Before using 
the joystick, wait to see which way the earthworm is moving. If 
you backtrack over a path you've already made, the game is over. 

Scoring 

Scoring is simple. You are awarded 10 points for each algae ball 
eaten. Because hitting pebbles, running into the fence, or back- 
tracking over your trail ends the game, no points are deducted for 
those moves. 
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Earthworms ^ 

Remember, do not type the checksum number at the end of each line. For example, do |^ ^ 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in 

Appendix E. ^ 

1 REM EARTHWORMS :rem 33 

100 MC=54272:VC=53248:POKEVC+32,6:POKEVC+33,15 LJ 

trem 145 

110 PRINTCHR$(147):M=((PEEK(53272)AND240)/16)*1024 

:C=55296 :rem 161 

150 PRINT"{BLK){D0WN}{RVS}{14 SPACES } EARTHWORMS ^ 

{16 SPACES} {off! {down}"; :rem 4 {_j 

155 GOSOB2300 trem 224 

160 PRINT" {D0WN}AS YOU CRAWL THROUGH THE DIRT YOU LJ 

{SPACE} MUST {2 SPACES} EAT ALGAE ( {GRN}Q{BLK} ) A 

ND AVOID" trem 72 LJ 

170 PRINT"SHARP PEBBLES ( {BLU}z{BLK} ) . " :rem 236 ^, 
175 PRINT" {down} HITTING PEBBLES OR THE BORDER OF T 

HE" :rem 73 \^ 

180 PRINT "SCREEN OR CROSSING A PREVIOUS TUNNEL 

{4 SPACES} WILL END THE GAME." :rem 255 Lj 

185 GOSUB2400 :rem 228 

190 PRINT" {down} CONTROL DIRECTION WITH THE JOYSTIC LJ 

K." J rem 249 

200 PRINT" {down} TEN POINTS FOR EACH ALGAE BALL YOU 
EAT. " :rem 170 

210 GOSUB2500:GOSUB2000 : rem 86 

220 PRINTCHR$(147);"{D0WN}{2 SPACES} ENTER SKILL LE LJ 

VEL:":PRINT"{3 DOWN} {3 SPACES }{ RVS } I { OFF } BEGI 

NNER" :rem 171 LJ 

225 PRINT" {2 DOWN} {5 SPACES } -TO-" : PRINT" {2 DOWN} , 

{3 SPACES} { RVS} 5 {OFF} ADVANCED" trem 197 ^ 

230 GETX$tIFX$=""THEN230 trem 123 

240 SC=0tSL=VAL(X$) tIFSL<lORSL>5THEN230 trem 171 
245 LT=(11-(SL*2) ) tIFLT>7THENLT=7 trem 197 \^ 

250 PRINTCHR$(147) tF0RY=lT0(SL*6) tGOSUB2100tPOKEM+ 

X,90tPOKEC+X,6tNEXTY trem 155 LJ 

260 AC=SL*20tFORY=lTOACtGOSUB2100tPOKEM+X,81tPOKEC 

+X,5tNEXTY trem 64 LJ 

270 Hl=20tVl=12tPOKEM+500,160tPOKEC+500,2 trem 21 , . 

275 {21 SPACES} trem 158 ^ 

280 H2=0tV2=0tX=ltIFRND(l)>.5THENX=-l trem 162 [_j 

290 LC=0tH2=XtIFRND(l)>.5THENH2=0tV2=X trem 29 

300 H3=0tV3=0tGOSUB2200tIFV3<>0ORH3<>0THENH2=H3tV2 LJ 

=V3tGOTO360 trem 224 

340 LC=LC+lfIFLC<LTTHEN300 trem 68 LJ 

350 LC=0 trem 148 

360 Hl=Hl+H2tVl=Vl+V2 tIFHl<0ORHl>39ORVl<0ORVl>24TH 

EN700 trem 61 

370 X=PEEK(M+H1+(V1*40) ) trem 39 
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380 IFX=32ORX=81THENPOKEM+H1+(V1*40) , 160:POKEC+H1+ 
(V1*40),2:GOTO410 :rem 173 

390 IFX=160ORX=90THEN700 :rem 188 

400 GOTO 3 00 :rem 96 

410 IFX=32THEN300 : rem 224 

420 REM ***** EAT ALGAE : rem 128 

430 POKEMC+0,0:POKEMC+1,0:POKEMC+24,15 :rem 218 
440 FORX=50TO10STEP-10 : rem 71 

445 POKEMC+l,X:POKEMC+4,129 :rem 92 

450 FORY=1TO10:NEXTY:POKEMC+4,128:NEXTX : rem 13 
460 POKEMC+24,0 :rem 70 

470 SC=SC+10:AC=AC-1 :rem 109 

480 IPAC<1THEN250 :rem 226 

490 GOTO300 :rem 105 

700 REM ***** GAME OVER :rem 163 

701 POKEMC+0 , : POKEMC+1 , 20 : POKEMC+4 ,17: POKEMC+24 , 1 
5 :rem 249 

702 FORY=1TO500 :NEXTY: POKEMC+4, 16 :POKEMC+24, 

:rem 34 

710 PRINTCHR$(147);"{3 D0WN}{15 SPACES} I RVS} GAME O 
VERllOFF}" :rem 224 

720 PRINT" {3 down} {4 SPACES} SCORE ="jSC : rem 39 
730 PRINT"{5 DOWN} {4 SPACES } REPLAY? ({RVS}y{OFF} O 
R {RVS}n{OFF})" :rem 173 

740 GETX$:IFX$=""THEN740 :rem 135 

750 IFX$="Y"THEN220 : rem 68 

760 IFX$<>"N"THEN740 :rem 126 

770 GOSUB2400:GOSUB2500 :rem 101 

780 PRINTCHR$ ( 147 ) :rem 26 

790 END zrem 119 

2000 PRINT" {HOME} {23 DOWN} {8 SPACES }{ PRESS ANY KEY 
TO START)" :rem 13 

2010 GETX$:IFX$=""THEN2010 :rem 215 

2020 RETURN :rem 164 

2100 X=INT(RND(1)*1000) :IFPEEK(M+X)<>32THEN2100 

:rem 197 

2110 RETURN :rem 164 

2200 REM ***** READ JOYSTICK : rem 6 

2210 X=PEEK( 56321) :rem 209 

2220 IF(XAND1)=0THENV3=-1 :rem 194 

2230 IF(XAND2)=0THENV3=1 :rem 151 

2240 IF(XAND4)=0THENH3=-1 :rem 185 

2250 IF(XAND8)=0THENH3=1 :rem 145 

2260 RETURN :rem 170 

2300 REM ***** LOAD SPRITE DEFINITIONS irem 174 
2310 FORX=832TO832+63:POKEX,0:NEXTX :rem 161 

2320 FORX=896T0896+63 :READZ:POKEX,Z:NEXTX : rem 144 
2330 FORX=832+48T0832+56 : READZ : POKEX, Z j NEXTX : RETUR 
N :rem 48 
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2400 REM ***** SETUP FOR SPRITE & NOTES :rem 122 
2410 FORX=54272TO54296:POKEX,0:NEXTX :rem 226 

2420 POKEMC+1,10:POKEMC+4,17:POKEMC+5,15 :rem 71 LJ 
2430 POKEMC+6,15 trem 123 

2440 POKEVC+0,0:POKEVC+1,200:POKEVC+16,0 :rera 85 ^ 
2450 POKEVC+23,l:POKEVC+28,0:POKEVC+29,0 :rem 103 
2460 POKEVC+39,2:POKE2040,13 :reni 72 

2470 RETURN :rera 173 

2500 REM ***** DRAW SPRITE :rem 130 

2510 POKEMC+24,15:POKEVC+21,l:X=5:Z=25 : rem 211 {_) 
2520 POKE2040,13:FORY=1TO50:NEXTY:POKEMC+4,16 

:rem 251 Lj 
2525 POKEVC+0,Z:Z=Z+10 :rem 46 

2530 POKE2040,14 :reni 80 

2540 POKEMC+l,X:X=X+3:POKEMC+4,17 :rem 219 

2550 IFZ=265THENPOKEVC+0,0:POKEVC+16,1:Z=0 :rera 47 
2560 IFZO100THEN2520 : rem 185 

2570 POKEMC+24,0:POKEVC+21,0 :rem 102 

2580 RETURN : rem 175 LJ 

3000 DATA0, 62, 0,0, 99, 0,0, 99, 0,0, 65, 0,0, 193, 128, 0,1 

93,128,0,128,128,1,128,192 : rem 166 LJ 

3010 DATAl, 128, 192, 1,0, 64, 3, 0,96, 3, 0,96, 2, 0,32, 6,0 . . 

,48,6,0,48,4,0,16,4,0 :rem 155 ^ 

3020 DATA16, 4, 0,16, 252, 0,31, 0,0, 0,0, 0,0,0 :rem 202 
3030 DATA0, 60, 0,0, 102, 0,255, 195, 255 :rem 208 
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Skill area: Coordination 
Level: 2, 3, 4 

Equipment required: None 
Modification: No 



Life in the Compost Heap 

You're a ladybug, and always hungry. The best food in town is in 
Mrs. Woodstock's compost heap. It's just full of wonderful, juicy, 
rotting tomato leaves. If s your joy in life to rim around the wire 
fence that holds all that tasty food. Whenever you see a particu- 
larly ripe tomato leaf, you jump for it. 

But Mrs. Woodstock broke a mirror last week; not thinking, 
she threw the pieces in the compost heap. Now she's forgotten 
about the mirror, but those mirror pieces mean seven years of bad 
luck for you. Now, quite often when you see what looks like a 
nutritious tomato leaf, youH jump for it and end up bouncing all 
over that compost heap. What you thought was a leaf turns out to 
be just a reflection in a piece of the mirror. Even if you could eat it, 
it wouldn't taste good. 

How to Play 

You rim around the compost heap waiting for your lunch. You 
signal lunchtime by pressing the space bar. Eat as many leaves as 
you can in as few lunchtimes as possible. 

There are ten skiU levels in "Ladybug," ranging from (easy) 
to 9 (hard). Press the number of the skill level you want and wait 
for the game to begin. Whenever you see a good cluster of leaves, 
press the space bar. If you hit a mirror fragment, you may bounce 
out of the compost heap. If you're lucky, the mirror fragment will 
bounce you into another tomato leaf or two along the way. 

Keep eating leaves until there aren't any left. If a leaf seems 
impossible to reach, you can either press SHIFT to increase the 
number of mirror fragments or you can end the game by pressing 
fl. 

Scoring 

At the end of a game, the computer will tell you four things: 
How many leaves were in the compost heap; 
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How many leaves you ate; 

How many lunchtimes it took you to eat the leaves; and 
What is your riumerical score. 

Numerical scores are issued by the computer on the basis of 
how efficiently you attacked the compost heap. The low score is 0, [_j 
and if you're good you can probably get scores of a hundred or 
more. ^ 

Ladybug ^ 

Remember, do not type the checksum number at the end of each line. For example, do LJ 

not type ":rem 123." Please read the article about the "Automatic Proofreader" in 

Appendix E. I I 

1 REM LADYBUG :rem 29 

100 PRINTCHR$(147):VC=53248:MC=54272 trem 45 

110 DIMDT%(3,1),BT%(3,3,1),BV(3),NT%(37,1),CH%(1), Lj 

C%(1) :rein 248 

120 S=((PEEK(53272)AND240)/16)*1024:C=55296-S 

:rem 115 , . 

130 FORX=54272TO54296:POKEX,0:NEXTX rrem 175 ^ 

140 POKEVC+32,6:POKEVC+33,12 :rem 113 ij 

150 FORW=0TO3 7 : FORX=0TO1 : READZ : NT% ( W, X ) =Z : NEXTX , W 

:reni 208 ^ 
160 GOSUB2000 :rem 217 

170 L%=27:LF%=28 :rem 71 LJ 

200 PRINTCHR$(147) ; "{3 D0WN}{2 SPACES}ENTER SKILL 

{space} LEVEL:" :rem 110 ^ 

210 PRINT"{3 D0WN}{5 SPACES) {RVS}1 {OFF} BEGINNER": , j 

PRINT" {2 DOWN} {7 SPACES} — TO — " :rem 58 

220 PRINT"{2 DOWN} {5 SPACES} {RVS} 9 {OFF} ADVANCED" {_j 

rrem 154 

230 GETX$:IFX$=""THEN230 :rem 123 LJ 

240 SK=VAL(X$):IFSK<1ORSK>9THEN230 :reni 111 

250 POKEVC+33,1:P1=160:P2=7:PRINTCHR$(147) :HI=0:BC LJ 

=0 :reni 37 , i 

260 FORW=0TO960STEP40:GOSUB3000:NEXTW rrem 114 ^ 

270 FORW=961TO998:GOSUB3000:NEXTW : rem 78 

280 FORW=999TO39STEP-40:GOSUB3000:NEXTW : rem 233 
290 FORW=38TO1STEP-1:GOSUB3000:NEXTW :rem 60 LJ 

300 F0RY=lT0SK*4+5 :rem 64 

310 W=INT(RND(l)*836)+82 :rem 42 LJ 

320 IFPEEK(S+W-1)<>32 ORPEEK(S+W) <>32 0RPEEK(S+W+1 

)<>32THEN310 :rem 97 ^ 

325 IFPEEK(S+W+40)<>32 ORPEEK(S+W-40) <>32THEN310 

:rem 1 

330 P1=BV(INT(RND(1)*4) ) :P2=6:GOSUB3000:NEXTY LJ 

:rem 187 

340 NT=INT(SK*10+10) :P1=LF%:P2=5:F0RY=1T0NT LJ 

:rem 113 
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350 W=INT(RND(1)*918)+41:IFPEEK(S+W)<>32THEN350 
_ :rem 228 

~ 360 GOSUB3000:NEXTY :rem 174 

400 CP=S :rem 183 

410 IFCP=S THENI=40:X=1 :rem 96 

f-( 420 IFCP=S+39THENI=-1:X=4 :reni 245 

430 IPCP=S+960THENI=1:X=2 :rem 250 

r-| 435 IFCP=S+999THENI=-40:X=3 :rem 108 

440 XP=CP:CP=CP+I:POKE XP+C, 7 : POKEXP, 160: POKE CP,L 
'~i %:POKE CP+C,2 : rem 56 

_ 455 IFPEEK(197)=4THEN900 :rem 125 

^ 460 KK=-(KK=0) :POKE 53272 , CH% (KK) : IF PEEK(197)=60 

^ {SPACE} THEN 500 :rem 100 

465 IF PEEK(653)>0 THEN GOSUB 1500 :reni 37 

r-| 470 QT=0:FORZ=1TO(10-SK) :IFPEEK(197)=60THENQT=1 

:rem 123 

!~) 480 NEXTZ:IFQT=0THEN410 :rera 212 

' 500 IFCP=SORCP=S+39ORCP=S+960ORCP=S+999THEN410 

trem 142 

505 BC=BC+1:PK=7 :rein 134 

510 I=DT%(X-1,0) :CD=DT%(X-1,1) : rem 91 

r-i 520 Z=32:IFPK=7THENZ=160 :rem 200 

530 P0KECP,Z:P0KECP+C,PK:PK=1 trem 84 

m 540 CP=CP+I:Y=PEEK(CP) :rem 73 

545 KK=-(KK=0) :POKE 53272, CH%(KK) :rem 33 

""I 550 IFY=32THEN630 trem 236 

_^ 560 IFY=LP%THEN6130 trem 60 

570 IFY=160THEN660 trem 35 

580 GOTO700 trem 109 

600 GOSUB4000:HI=HI+1 trem 207 

(— ) 630 POKECP,L%tPOKECP+C,2tFORZ=lTO(20-SK) tNEXTZtlFH 

I>=NTTHEN900 :rem 220 

(~) 640 GOTO520 trem 106 

660 POKECP,L%:POKECP+C,2tIFI=-40THENI=-ltX=4tGOTO4 
10 trem 193 

670 IFI=40THENI=ltX=2tGOTO410 trem 5 

680 IFI=lTHENI=-40tX=3tGOTO410 trem 52 

m 690 I=40:X=1:GOTO410 trem 145 

700 Z=9:FORW=0TO3tIFBV(W)=YTHENZ=W trem 222 

O 710 NEXTW:IFZ>3THEN630 trem 138 

720 X=BT% (Z, CD-I, ) :CP=CP+BT%(Z, CD-I, 1) tGOSUB4100 

trem 28 

725 IFPEEK(CP)=LF%THENGOSUB4000tHI=HI+l trem 146 
" 730 POKECP,L%tPOKECP+C,2tGOTO510 trem 202 

r-) 900 PRINTCHR$(147);"{WHT}{2 DOWN} {15 SPACES} {RVS}G 

AME OVERI {OFF}"tPOKEVC+33,12tPOKE198,0 trem 94 
m 910 PRINT"{3 DOWN} {5 SPACES}* LEAVES{2 SPACES}=";N 

T trem 155 

920 PRINT" {DOWN} {5 SPACES}* EATEN{3 SPACES}=";HI 
_^ trem 22 

^ 227 
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930 PRINT" {down} {5 SPACES}* LUNCHES =";BC trem 176 
940 IFBC=0THENBC=1 :rein 64 

950 X=(HI-BC)*5+40:X=X-(2*(9-SK) ) : IFX<1THENX=1 

:rem 142 

955 IPHI<10THENX=1 :rem 85 

960 PRINT"{2 DOWN} {7 SPACES } SCORE { 3 SPACES}=";X 

irem 222 

970 PRINT" {3 DOWN} {5 SPACES} PLAY AGAIN? ({RVS}Y 

{off} or {RVS}N{0PF})" :rem 90 

980 GETX§:IFX$=""THEN980 :rem 147 

990 IFX$="Y"THEN200 :rem 72 

1000 IFX$<>"N"THEN980 :reni 168 

1010 GOSUB5000:PRINTCHR$(147) :rem 188 

1020 END :rem 154 

1500 FOR QQ=0 TO 12:EN=0 :rem 252 

1510 W=INT(RND(1)*836)+82:EN=EN+1:IF EN>25 THEN QQ 

=12 :NEXT: RETURN rrem 91 

1520 IF PEEK(S+W-1)<>32 ORPEEK(S+W) <>32 ORPEEK(S+W 

+1)<>32 THEN 1510 :rem 199 

1530 IFPEEK(S+W+40)<>32 OR PEEK(S+W-40) <>32 THEN 1 

510 :rein 99 

1540 P1=BV(INT(RND(1)*4)):P2=6:G0SUB 3000:NEXT QQ 

:rem 56 

1550 BC=BC+10: RETURN rrem 184 

2000 PRINT" {down} {WHT}{RVS} {13 SPACES}L A D Y B U 

{SPACE}G{14 spaces} {off}"; :rein 144 

2010 PRINT" {2 D0WN}THE LADYBUG RUNS AROUND THE SCR 

EEN{6 SPACES} WAITING FOR HER LUNCH." :rein 210 
2020 PRINT" {DOWN} YOU SIGNAL LUNCH TIME BY PRESSING 
THE {3 SPACES} SPACE BAR." : rem 96 

2030 PRINT" {DOWN} END THE GAME BY EATING ALL THE LE 

AVES ORBY PRESSING THE {RVS}F1{0FF} KEY." 
2040 PRINT" {down} EAT AS MANY LEAVES AS POSSIBLE PE 

R LUNCHPOR A HIGHER SCORE." :rem 234 

2050 PRINT "{D0WN}ADD MORE OBSTACLES BY PRESSING 

{RVS} SHIFT {OFF}" : rem 109 

2060 GOSUB5000 :rem 13 

2070 FORX=0TO3 : FORY=0TO1 : READZ : DT% (X, Y)=Z :NEXTY, X 

:rem 200 

2080 FORW=0TO3 : FORX=0TO3 : FORY=0TO1 : READZ : BT% ( W, X , Y 

)=Z:NEXTY,X,W :rem 136 

2090 FORW=0TO3: READZ :BV(W)=Z:NEXTW :rem 221 

2100 PRINT "{down} JUST 20 SECONDS WHILE I GET MYSE 

LF IN{3 spaces} shape ..." :rem 96 

2120 CH%(0)=12:CH%(1)=14:FOR 1=0 TO 1 :C% ( I )=1024*C 

H%(I):NEXT :rem 124 

2130 POKE 56334, PEEK(56334)AND254:POKE 1,PEEK(1)AN 

D251 :rem 231 

2140 FOR 1=0 TO 1:F0R J=8 TO 215:POKE C%(I)+J,PEEK 

( VC+ J ) : NEXT J : r em 166 
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2150 FOR J=C%(I)+216 TO C% ( I )+271 :READZ :POKEJ, Z :NE 
XTJ :rem 18 

2160 FOR J=280 TO 511:P0KE C%(l)+J,PEEK(VC+J) :NEXT 
J :rem 94 

2170 FOR J=1024 TO 1487:POKE C% ( I)+J, PEEK( VC+J ) :NE 
XTJ, I rrem 62 

2180 POKE 1, PEEK (1)0R4: POKE 56334, PEEK( 56334 )0R1 

:rein 186 

2190 FOR 1=0 TO 1:CH%(I)=(PEEK(53272)AND240)ORCH%( 
l):NEXT:POKE 53272, CH%(0) :rem 94 

2200 PRINT" {down} {8 SPACES} (PRESS ANY KEY TO START 
)" :rem 134 

2210 GETX$:IFX$=""THEN2210 : rem 219 

2220 RETURN :rein 166 

3000 POKES+W, PI :P0KES+C+W,P2: RETURN :rem 232 

4000 REM *** SONG TO EAT LEAVES BY :rem 53 

4010 POKEMC+24,15:POKEMC+4,129 :rem 199 

4020 FORV1=50TO10STEP-10:POKEMC+1,V1:NEXTV1 

:rein 172 

4030 POKEMC+4,12a:FORVl=lT04:NEXTVl :rem 153 

4040 POKEMC+24,0 :rem 116 

4050 RETURN :rem 169 

4100 REM *** SONG TO HIT BARRIERS BY :reni 219 

4110 P0KEMC+24,15:P0KEMC+4,17 :rem 148 

4120 POKEMC+1,20:FORV1=1TO40:NEXTV1 :reni 141 

4130 POKEMC+4,16:FORV1=1TO10:NEXTV1 :rem 147 

4140 POKEMC+24,0 :rem 117 

4150 RETURN ! rem 170 

5000 REM *** PLAY THE SONG rrem 117 

5010 POKEMC+5, 79:POKEMC+6, 129:POKEMC+0,0:POKEMC+1, 

0:POKEMC+24, 15 :rem 32 

5020 FORX=0TO37:Y=NT%(X,0) :Z=INT(Y/256) :rem 78 
5030 Y=Y-Z*256:POKEMC+0,Y:POKEMC+1,Z :rem 185 

5040 POKEMC+4,17:FORY=1TONT%(X,1)*70:NEXTY :reni 54 
5050 POKEMC+4 , 16 : F0RY=1T01 5 : NEXTY, X i POKEMC+24 , : PO 

KEMC+0,0: POKEMC+5, 15 :rem 67 

5055 POKE MC+6,15 :rem 129 

5060 RETURN : rem 171 

9000 DATA6430, 2, 7217, 2, 7217, 2, 8583, 3, 7217, 1,6430, 2 

,5728,1,5407,2,7217,2 :rem 236 

9010 DATA7217, 2, 7217, 2, 8583, 2, 8101, 2, 7217, 2, 6430, 2 

,7217,2,5728,2,5407,2,5728,2 :rem 75 

9020 DATA6430, 2, 5728, 2, 7217, 1,5407, 2, 6430, 1,4817, 2 

,5407,2,5728,2,6430,2 tram 233 

9030 DATA7217, 2, 8101, 2, 8583, 2, 6430, 1,6430, 2, 7217, 2 

,5728,2,5407,1,4291,2,4291,1 :rem 63 

10000 DATA1,3,-40,1,-1,4,40,2 :rem 141 

10010 DATA4,40,3,-1,2,-40,1,1 :reni 142 

10020 DATA4,40, 1,1, 3,-1, 2,-40 :rem 143 

10030 DATAl,l,2,-40,3,-l,4,40 :rem 144 
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10040 DATA3,-1,2,-40,4,40,1,1 :rem 145 ^ 

10050 DATA29,30,31,33 :rem 44 , , 

63000 DATA0, 36, 24, 190, 125, 24, 36,0 :rein 119 ^ 

63001 DATA12,24,111,223,95,46,24,16 :rem 224 

63002 DATA1,3,3,7,15,31,127,255 :rem 23 

63003 DATA128, 192, 192, 224, 240, 248, 254, 255 :rein 32 LJ 

63004 DATA255, 254, 248, 240, 224, 192, 192, 128 trem 33 

63005 DATA0, 0,0, 0,0, 0,0,0 :rem 204 

63006 DATA255,127,31,15,7,3,3,1? srem 27 

63007 DATA8,16,90,60,60,90,8,16 :rem 42 

63008 DATA48,24,111,223,95,46,24,8 :rem 193 ij 

63009 DATA0,1,7,15,31,63,63,127 :rem 30 

63010 DATA0, 128, 224, 240, 248, 252, 252, 254 :rem 172 v_J 

63011 DATA254, 252, 252, 248, 240, 224, 128,0 :reni 173 

63012 DATA0, 0,0, 0,0, 0,0,0 :rem 202 vJ 

63013 DATA127,63,63,31,15,7,1,0 :rem 25 
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Skill area: Any Category 
Level: 2, 3, 4 

Equipment required: None 
Modification: Yes 

Build a Quiz 

This book contains many programs that will teach your kids a 
wide assortment of things as they play games. However, no two 
kids are alike, and even one child's needs change from day to day. 
"Build a Quiz" will help you keep on top of those needs. 

Build a Quiz comes with two options. You can build a quiz on 
any subject and write it out to tape or disk, or you can give your 
child (or yourself) a test on any subject for which you've previ- 
ously written a quiz. 

If your chUd isn't doing well in civics, say, and there's a big 
test coming up, you can make up a sample test from the child's 
textbook or class notes. Because this is your test, you can make it 
as general or specific as you wish. You can use Build a Quiz to 
create a test about the United States Constitution or about the 
history of your local government. Whatever your child needs can 
be covered with Build a Quiz, and you can create tests using 
multiple-choice, true-false, or completion questions, or a combi- 
nation of the three. 

Build a Quiz has another function, too — fun. Maybe your 
teen-age son has told you hell pass your quiz on geometry if you 
pass a quiz he makes up about rock stars. Both tests can be con- 
structed with this program. 

Who knows? Now that you have Build a Quiz, maybe the 
whole family will learn something about a variety of unusual 
subjects. 



Build a Quiz 

Remember, do not type the checksum number at the end of each line. For example, do 
not type ":rem 123." Please read the article about the "Automatic Proofreader" in 
Appendix E. 

1 REM BUILD A QUIZ »rem 15 

100 DI=8:TA=1:REM ** DEVICE NUMBERS ** :reni 98 

110 VC=5324a : POKEVC+32 , : POKEVC+33 , 11 : PRINTCHR? ( 14 
7) I rem 50 
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120 Z$=CHR${13) iDP=0:PS=0 :reni 137 ^ 
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130 DIM NT%(30) :rem 233 

140 MC=54272:FOKX=MCTO54296:POKEX,0:NEXTX trem 71 
150 FOR5C=0TO30:READZ:NT%(X)=Z:NEXTX : rem 10 

160 M=( (PEEK(53272)AND240)/16)*1024 :rem 44 

170 C=55296 :rem 35 LJ 

200 PRINT"{WHT}{2 DOWN} {RVS}{6 SPACES}B U I L D , 
{4 SPACES}a{4 SPACES}Q U I Z{7 SPACES} {OFP} " ^ 

:reni 40 

210 PRINT" {2 DOWN} OPTION 1 OF THIS PROGRAM WILL B 

UILD A" :rem 94 \^ 

215 PRINT" QUIZ AND SAVE IT ON TAPE OR DISK." 

:rem 18 LJ 
220 PRINT" 1 2 DOWN} OPTION 2 ALLOWS YOU RECALL AN E 

XISTING" trem 14 ^ 

225 PRINT" QUIZ AND TEST YOURSELF." :rem 109 

227 GOSUB9000 :rein 228 

230 PRINT" {2 DOWN} {3 SPACES }ENTER OPTION:" :rem 25 (j 
240 PRINT" {down} {3 SPACES }{ RVS } 1 { OFF } CREATE A QUI 
Z":PRINT"{D0WN}{3 SPACES} {RVS} 2 {OFF} TAKE A QU 
IZ" trem 44 

245 PRINT" {down} {3 SPACES }{ RVS } 3 { OFF } END PROGRAM" LJ 

:rem 67 . 

250 GETX$:IFX$=""THEN250 :rem 127 ^ 

260 X=VAL(X$) :ONXGOTO300,700,280 :rem 97 

270 GOTO250 :rem 105 

280 PS=0:GOSUB9000:PRINTCHR$(147) :rem 226 \^ 

290 END :rem 114 

300 NQ=0:GOSUB9200:GOSUB7500:PRINTCHR$(147):rem 95 WJ 
310 0PEN9,DV,1,QN$:PRINTCHR$(147) :PRINT#9,X$;Z$; 

trem 133 ^ 

320 NQ=NQ+1:PRINT"{CLR}{2 DOWN} {3 SPACES}ENTER QUE , , 

STION TYPE: {2 DOWN}" trem 192 ^ 

330 PRINT"{2 D0WN}{3 SPACES }{ RVS } 1 { OFF } TRUE/FALSE u 
": PRINT" {2 DOWN} {3 SPACES }{ RVS } 2 { OFF } MULTIPLE 
CHOICE" trem 82 

335 PRINT"{2 DOWN} {3 SPACES }{ RVS } 3 { OFF } COMPLETION 

" trem 95 U 

340 PRINT" {2 DOWN} {3 SPACES} {RVS } 4 {OFF} (ALL DONE) 

trem 178 

350 GETX$:IFX$=""THEN350 trem 129 ji 

360 IFX$="4"THENT$=X$:GOTO550 trem 198 

365 IPX$<"1"ORX$>"3"THEN350 trem 243 

370 PRINT" {CLR} {DOWN} {3 SPACES} QUESTION #";NQ; 

trem 191 i^J 
380 X=VAL(X$) tTS=X$tONXGOTO400,450,500 trem 205 
390 GOTO350 trem 109 ^ 

400 PRINT" (TRUE/FALSE) " t 0=240 :L=80 :GOSUB8000 :A$=X$ 

:rem 241 
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410 PRINT" {10 DOWN} {3 SPACES} ENTER CORRECT ANSWER 
{space} ({RVS}t{OFF} OR {RVS}p{OFF})" :rein 68 



440 PRINT#9,T$;Z$;A$;Z$;X$;Z$; :GOTO320 :rem 234 
450 PRINT" (MULTIPLE CHOICE) " :O=240 :L=80 :GOSUB8000 

:reni 219 

455 Q$=X$:PRINT"{8 DOWN} A. " :O=404 :L=76 :GOSUB8000 

:rem 222 

460 A$=X$:PRINT"{2 DOWN} B. " :O=524:GOSUB8000:B$=X$ 

:rem 145 

465 PRINT"{2 DOWN} C. ": 0=644 :GOSUB8000:C$=X? 

:rem 67 

470 PRINT"{2 down} D. " i 0=764 :GOSUB8000 !D$=X$ 

:rein 68 

480 print" {3 down} {4 spaces} enter correct answer ( 
{rvs}a{off}, {rvs}b{off}, {rvs}c{off} or {rvs}d 

{OFF})" :rera 228 

485 GETX$:IFX$=""THEN485 :rem 147 

490 IFX$<"A"0RX$>"D"THEN485 :rein 28 

495 PRINTCHR$ ( 147 ) :rem 29 

497 PRINT#9,T$;Z$;Q?;Z$;A$;Z$;B$;Z$;C$;Z$;D$;Z$;X$ 

;Z$; :reni 104 

499 GOTO320 :rem 116 

500 PRINT " ( COMPLETION ) " : 0=240 : L=80 : GOSUB8000 : Q$=X$ 

:rein 34 

505 PRINT" {10 DOWN} {3 SPACES }ENTER CORRECT ANSWER: 

:rem 175 

510 0=600 :L=80:GOSUB8000 irem 101 

520 PRINTCHR$ ( 147 ) treiti 18 

530 PRINT#9,T$7Z$;Q$;Z$;X$;Z$; :rem 242 

540 GOTO320 :rein 103 

550 PRINTCHR${147) : rem 21 

560 PRINT#9,T$;Z$; :reni 28 

570 CL0SE9 trem 75 

580 GOTO200 :rem 104 

700 GOSUB9200:GOSUB7500:PRINTCHR$(147) :rem 29 

730 OPEN9,DV,0,QN$:GOSUB6000 jrem 150 

740 IFLEN{X$)>39THEN760 trem 76 

750 A$=" "+X$:X$=A$+" ":GOTO740 :rein 254 

760 PRINT"{CLR}{2 DOWN} " jP0RX=1T011 :PRINTX$; jPRINT 
" ":NEXTX:GOSUB7000:FORX=1TO1500:NEXTX :rem 11 
770 PRINTCHR$(147) :NQ=0:CQ=0 srem 154 

800 INPUT#9,X$ trem 44 

810 IPX$="4"THEN2000 :rem 74 

820 IFX$<"1"ORX$>"3"THEN800 :rein 239 

830 NQ=NQ+1:X=VAL(X$) :rem 241 

850 ONXGOTO900, 1000, 1100 :rem 63 



420 GETX$ : IFX$=" "THEN420 

430 IFX$ < > "T "ANDX$ < > "F "THEN420 

435 PRINTCHR$(147) 



:rein 125 
:reni 204 
:rem 23 
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860 GOTO800 :rem lH LJ 

900 GOSUB6000:Q$=X$sGOSUB6000:R$=X$ irerti 48 

902 PRINT"{CLR}{D0WN}{3 SPACES } QUESTION #";NQ ^ 

trem 133 ^ ; 

904 PRINT" {3 D0WN}";Q$ :rem 81 ^ 

910 PRINT" {4 DOWN} {3 SPACES}ENTER {RVS}t{OFF} FOR 

{space} TRUE" :rein 76 

920 PRINT" {2 DOWN} {3 SPACES} ENTER {RVS}f{OFF} FOR LJ 

{space} FALSE" : rem 72 

940 GETA$:IFA$=""THEN940 : rem 93 ^ 

950 IPA$<>"T"ANDA$<>"F"THEN940 : rem 172 

960 IFA?<>R$THEN1200 :rem 117 

970 GOTO1300 :rem 157 

1000 GOSUB6000:Q$=X$:GOSUB6000:A$=X$:GOSUB6000:B$= 

X$:GOSUB6000:C$=X$ : rem 250 LJ 

1002 GOSUB6000:D$=X$:GOSUB6000:R$=X$ :rem 77 

1006 PRINT"{CLR}{D0WN}{3 SPACES} QUESTION #";NQ O 

:rem 177 , , 

1008 PRINT"{3 D0WN}";Q$:PRINT"{2 DOWN} A. ";A$:X$= ^ 

A$:GOSUB6700 :rem 152 

1010 PRINT" B. ";B$:X?=B$:GOSUB6700: PRINT" C. ";C$ 

:X$=C$:GOSUB6700 :rem 131 LJ 

1020 PRINT" D. ";D$:X$=D$:GOSUB6700 :rem 139 

1030 PRINT" {12 SPACES} ENTER {RVS}a{OFF} , {RVS}B LJ 

{off}, {RVS}C{0FF} or {RVS}d{OFF}" :rem 166 
1040 GETA$:IFA$=""THEN1040 :rem 173 ^ 

1050 IFA$<"A"ORA$>"D"THEN1040 : rem 59 , , 

1060 IFA$<>R$THEN1200 :rem 157 

1070 GOTO1300 :rem 197 

1100 GOSUB6000:Q$=X$:GOSUB6000:R$=X$ :rem 89 

1102 PRINT" {CLR}{ DOWN} {3 SPACES} QUESTION #";NQ LJ 

:rem 174 

1110 PRINT" {3 D0WN}";Q$ :rem 119 LJ 

1120 0=480 :L=80:GOSUB8000 :rem 153 , , 

1130 IFX$<>R$THEN1200 : rem 178 ^ 

1140 GOTO1300 :rem 195 

1200 GOSUB7200:PRINT"{CLR} {3 D0WN}C0RRECT ANSWER: 

{3 D0WN}":PRINTR$ :rem 105 LJ 

1210 FORX=1TO1500:NEXTX:PRINTCHR$(147) :GOTO800 

:rem 107 LJ 
1300 CQ=CQ+1:GOSUB7000 :rem 6 

1310 PRINTCHR$(147) :rem 64 ^ 

1320 GOTO800 :rem 151 / j 

2000 PRINT"{CLR} {2 down} {15 SPACES} {RVS} QUIZ OVERl 

{OFF}" :rem 146 LJ 

2010 PRINT"{2 DOWN} {3 SPACES }NUMBER OF QUESTIONS = 

";NQ srem 246 LJ 

2020 PRINT" {2 DOWN} {3 SPACES} NUMBER CORRECT 

{6 SPACES}="7CQ :rem 158 LJ 

u 
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^ Build 
o A 
« Quiz 

O 2030 IFNQ=0THENNQ=1 :rem 156 

_ 2040 X=INT( (CQ*100)/NQ) :rein 5 

~ 2050 PRINT" {2 down} {3 SPACES} YOUR SCORE {10 SPACES} 

=";X; "{left}*" :rem 150 

2060 PRINT"{3 DOWN} {12 SPACES} (PRESS ANY KEY)" 
(-~) :rem 123 

2070 GETX$:IFX$=""THEN2070 :rem 227 

2080 PRINTCHR$ ( 147 ) :rem 69 

2090 CLOSE 9 :reni 122 

'J 2100 GOTO200 :rem 142 

6000 X$="" :rem 195 

6010 GET#9,R? srem 165 

6020 IFR$=""THEN6010 : rem 68 

6030 IFASC(R$)=13THEN6060 :rem 146 

1^ 6040 X$=X$+R$ :rem 160 

6050 GOTO6010 trem 203 

O 6060 RETURN :rem 172 

^ 6700 X=LEN(X$) :IFX=36ORX=76THEN6720 : rem 118 

6710 PRINT" {shift-space}" : rem 63 

(— ) 6720 RETURN : rem 175 

- 7000 POKEMC+0,0:POKEMC+1,0:POKEMC+5,15:POKEMC+6,15 

r~) :POKEMC+24,10 :rem 220 

7010 F0RX=2T011 :rem 123 

7020 POKEVC+33,X:POKEMC+l,X*5:POKEMC+4,33 :rem 200 
7030 FORY=1TO50:NEXTY :rem 82 

7040 POKEMC+4,32:FORY=1TO10:NEXTY,X :rem 188 

7050 POKEMC+24,0 :rem 120 

7060 RETURN :rem 173 

7200 POKEMC+0,0:POKEMC+1,30:POKEMC+4,33:POKEMC+5,1 
5:POKEMC+6,15 :rem 228 

7210 POKEVC+33,0:POKEMC+24,10 :rem 150 

7220 FORX=1TO500:NEXTX :rem 129 

7230 POKEMC+4,32:FORX=1TO20:NEXTX :rem 56 

f-^ 7240 POKEMC+24,0:POKEVC+33,11 :rem 154 

7250 RETURN : rem 174 

7500 PRINT"{CLR} {3 down} {3 SPACES }ENTER QUIZ NAME: 
":PRINT"{D0WN}{3 SPACES} (1-37 LETTERS)" 

:rem 221 

^ 7510 O=323:L=38:GOSUB8000:IFLEN(X$)>37THEN7500 

:rem 185 

^ 7520 QN$=X$:IFLEN(X$)>11THENQN$=LEFT$(X$,11) 

:rem 56 

(—) 7530 QN$="QUIZ/"+QN$ : rem 121 

7540 PRINT" {6 DOWN} {3 SPACES } PREPARE ";DV$: PRINT" 
O {DOWN} {3 SPACES} THEN PRESS { RVS} RETURN { OFF } " 

_ :rem 107 

~ 7550 GETE$:IFE$=""THEN7550 :rem 205 

p-, 7560 IFASC{E$)<>13THEN7550 :rem 208 

7570 RETURN : rem 179 

n 
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8000 X$="":POKEM+O,160:POKEC+O,1 :rem 59 

8010 GETY$:IFY$=""THEN8010 srem 229 

8020 X=ASC(Y§) :IFX=13THEN8150 :rem 195 

8030 IFX=20THEN8100 trem 73 

8040 y=LEN(X$) :X$=X$+Y$:IFX>63THENX=X-64 :rem 160 U> 
8050 POKEM+0+Y,X:POKEC+0+Y,l :POKEM+0+Y+l, 160:POKEC 

+O+Y+1,1:IFLEN(X$)<LTHEN8010 :reni 253 

8060 GOTO8150 trem 213 

8100 Y=LEN{X$) :IFY<1THEN8010 :rem 146 

8110 POKEM+O+Y,32:POKEC+O+Y,11:POKEM+O+Y-1,160:POK 

EC+O+Y-1,1 :rem 71 

8120 Y$=LEFT$(X$,Y-1) :X$=Y$:GOTO8010 : rem 48 LJ 

8150 Y=LEN(X$) :POKEM+0+Y,32:POKEC+0+Y,ll :rem 141 
8160 RETURN :rem 175 ^ 

9000 IFPS=1THEN9080 :reni 105 

9005 POKEMC+0 , : POKEMC+1 , : POKEMC+5 , 79 : POKEMC+6 , 12 

9:P0KEMC+24,15 trem 40 

9010 FORX=0TO30 :rein 124 

9020 Y=INT(NT%(X)/256) :rem 217 UJ 

9030 POKEMC+0, NT%(X)-(Y*256) :rem 32 

9040 POKEMC+1, Y:P0KEMC+4, 17 trem 89 

9050 FORY=1TO70:NEXTY i rem 88 , 

9060 POKEMC+4,16:FORY=1TO10:NEXTY,X srem 194 ^ 

9070 POKEMC+24,0:PS=1 :rem 199 

9080 RETURN :rem 177 

9200 IFDP=1THEN9280 srem 94 

9205 PRINTCHR$(147);"{4 DOWN} DO YOU WANT TO USE D 

ISK OR TAPE FOR" srem 69 LJ 

9210 PRINT" {DOWN} SAVING/LOADING QUIZZES?" srem 29 
9220 PRINT"{5 DOWN} ENTER {RVS}d{OPF} OR {RVS}T ^ 

{off}" srem 242 

9230 GETX$5lFX$=""THEN9230 srem 237 

9240 IFX$="D"THENDV=DIsDV$="DISK" SGOTO9270 srem 27 \^ 
9250 IFX$="T"THENDV=TAsDV$="TAPE"sGOTO9270 srem 51 
9260 GOTO9230 srem 216 LJ 

9270 DP=1 srem 212 

9280 RETURN srem 179 ^ 

9900 DATA6430, 6430, 6430, 4817, 8101, 8101, 8101, 6430, 6 

430,8101,9634,9634 srem 121 ^ 

9910 DATA8583, 8101, 7217, 0,7217, 8101, 8583, 8583, 8101 

,7217 srem 2 

9920 DATA8101, 6430, 6430, 8101, 7217, 4817, 6069, 7217, 6 LJ 

430 srem 148 
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^ What is a Program? 



egirioer's Guide to 
ng In Programs 



A computer cannot perform any task by itself. Like a car without 
gas, a computer has potential, but without a program, it isn't going 
anywhere. Most of the programs published in this book are writ- 
ten in a computer language called BASIC. BASIC is easy to learn 
^ and is built into all Commodore 64s. 



O BASIC Programs 

CD Computers can be picky. Unlike the English language, which is 

full of ambiguities, BASIC usually has only one right way of 
^ stating something. Every letter, character, or number is signifi- 
(— ^ cant. A common mistake is substituting a letter such as O for the 
numeral 0, a lowercase 1 for the numeral 1, or an uppercase B for 
the numeral 8. Also, you must enter all punctuation such as 
colons and commas just as they appear in the book. Spacing can 
be important. To be safe, type in the listings exactly as they 
appear. 



Braces and Special Cliaracters 



r*\ The exception to this typing rule is when you see the braces, such 
_ as { DOWN } . Anything within a set of braces is a special char- 
^ acter or characters that cannot easily be listed on a printer. When 
you come across such a special statement, refer to "How to Type 
^ In Programs." 

About DATA Statements 

Some programs contain a section or sections of DATA, statements. 
^ These lines provide information needed by the program. Some 
^ DAIA statements contain actual programs (called machine lan- 
guage); others contain graphics codes. These lines are especially 
O sensitive to errors. 

If a single number in any one DAIA statement is mistyped, 
your machine could lock up, or crash. The keyboard and STOP 
key may seem dead, and the screen may go blank. Don't panic — 
^ no damage is done. To regain control, you have to turn off your 
computer, then turn it back on. This will erase whatever program 

n 
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was in memory, so altvays SAVE a copy of your program before you 
RUN it. If your computer crashes, you can LOAD the program 
and look for your mistake. 

Sometimes a mistyped DAIA statement will cause an error 
message when the program is RUN. The error message may refer 
to the program line that READs the data. The error is still in the 
DAEA statements, though. 

Get to Know Your Machine 

You should familiarize yourself with your computer before 
attempting to t5^e in a program. Learn the statements you use to 
store and retrieve programs from tape or disk. YouH want to save 
a copy of your program, so that you won't have to type it in every 
time you want to use it. Learn to use your machine's editing func- 
tions. How do you change a Une if you made a mistake? You can 
always ret5^e the line, but you at least need to know how to back- 
space. Do you know how to enter reverse video, lowercase, and 
control characters? Ifs all explained in your computer's manuals. 

A Quick Review 

1) Type in the program a line at a time, in order. Press RETURN at 
the end of each line. Use backspace or the back arrow to correct 
mistakes. 

2) Check the line you've typed against the line in the book. You 
can check the entire program again if you get an error when you 
RUN the program. 



242 



o 
o 
o 
o 
o 

Q 
(0 

O 
O 

o 
o 
o 
o 

Q 
O 
O 
O 

o 
o 
o 

Q 
O 
Q 
O 

a 
o 
o 
g 
o 

Q 
o 

o 
o 

Q 



Appendix 

B 

How to Type In Programs 

To make it easy to know exactly what to type when entering one 
of these programs into your computer, we have established the 
following listing conventions. 

Generally, Commodore 64 program listings will contain 
words within braces which spell out any special characters: 
{DOWN } woidd mean to press the cursor down key. {5 
SPACES } would mean to press the space bar five times. 

To indicate that a key should be shifted (hold down the SHIFT 
key while pressing the other key), the key would be underlined in 
our listings. For example, S would mean to type the S key while 
holding the shift key. This would appear on your screen as a heart 
symbol. If you find an underlined key enclosed in braces (e.g., 
{ 10 N }), you should type the key as many times as indicated (in 
our example, you would enter ten shifted N's). 

If a key is enclosed in special brackets, ^ >^ , you should hold 
down the Commodore key while pressing the key inside the special 
brackets. (The Commodore key is the key in the lower left corner 
of the keyboard.) Again, if the key is preceded by a number, you 
should press the key as many times as necessary. 

Rarely, youH see a solitary letter of the alphabet enclosed in 
braces. These characters can be entered by holding down the 
CTRL key while tj^ing the letter in the braces. For example, { A } 
would indicate that you should press CTRLA. 

About the quote mode: You know that you can move the cursor 
around the screen with the CRSR keys. Sometimes a programmer 
will want to move the cursor under program control. That's why 
you see all the {LEFT }'s, {HOME }'s, and {BLU }'s in our pro- 
grams. The only way the computer can tell the difference be- 
tween direct and programmed cursor control is the quote mode. 

Once you press the quote (the double quote, SHIFT-2), you 
are in the quote mode. If you type something and then try to 
change it hy moving the cursor left, youll oiily get a bunch of 
reverse-video lines. These are the symbols for cursor left. The 
only editing key that isn't programmable is the DEL key; you can 
still use DEL to back up and edit the line. Once you type another 
quote, you are out of quote mode. 

You also go into quote mode when you INSerT spaces into a 
line. In any case, the easiest way to get out of quote mode is to just 
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press RETURN. YouH then be out of quote mode and you can 
cursor up to the mist)^ed line and fix it. 

Use the following table when entering cursor and color con- 
trol keys: 




When You 
Read: 


Press: 


When You 
See: Read: 




Press: See: 


u 


t CLEAR; 


— — 1 1 

SHIFT 1 1 CLR/HOME 


III ill 


COMMODORE 


1 >I n 




( HOME J 


1 CLR/HOME 




COMMODORE 


1 




fltPl 1 


SHIFT I y CRSR ■ 




COMMODORE 


1 H 8 


i i 




1 Y CRSR ^ 




COMMODORE 


h I EH 




I LEFT ) 1 


SHIFT 1 |^CRSR«V 


MM ceQ 


COMMODORE 


hi IS 

l—J 


I RIGHT J 


I^CRSR^ 


11 ^63 


COMMODORE 


— s 


IRVSJ 


CTRL 1 1 « 1 




COMMODORE 


7 El 




(OFF) 


CTRL 1 1 1 


■ m 


COMMODORE 


I'll! 

L__J m\m 




(blk) 


CTRL 1 1 1 I 


flj: {fD 
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{VfflT) 


CTRL 1 1 2 I 


H {P2} 




f2 
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{ red} 


CTRL j j 3 j 


EH ' ' 
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■ 


ICYN} 


CTRL 1 1 4 1 
1 1 1 


■ (F4} 




M 


B 


{PUR} 


CTRL 1 1 5 1 






(5 


n 




{grn} 


CTRL 1 1 6 1 


H {F6} 




fi 


B 




{blu} 


CTRL 1 1 7 1 


Q {F7} 
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lYEL} 


CTRL 1 1 a 1 
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Program Information 



Contents, Sorted by Age Level 



Level 1 Games: 

A-Maze-Ing 
Count the Spots 
Counting Game 
Get the Treasure 
Hidden Picture 

Level 2 Games: 

A-Maze-Ing 
Asteroid Blast 
Black Hole 
Counting Game 
Ladybug 
Matchmaker 
Notecrafter 
Personal Story 
Spelling Bee 
Spend Your Allowance 
Word Scramble 

Level 3 Games: 

Alphabet Soup 
Asteroid Blast 
Black Hole 
Earthworms 
Ladybug 
Lawn Mower 
Matchmaker 
Notecrafter 
Plan a Menu 
Spelling Bee 

Games Sorted by Subject 

Coordination 

A-Maze-Ing 
Asteroid Blast 
Black Hole 
Earthworms 
Get the Treasure 
Hidden Picture 
Ladybug 



Spend Your Allowance 
State of the Union 
Stargazer 
Wise Shopper 
Word Scramble 

Level 4 Games: 

Alphabet Soup 

Asteroid Blast 

Black Hole 

Earthworms 

Element Man 

Four by Four 

Heavenly Bodies 

Ladybug 

Lawn Mower 

Matchmaker 

Mother Earth 

Mr. President 

Notecrafter 

Plan a Menu 

Movers and Shakers 

Skeleton 

Spelling Bee 

Spend Your Allowance 

State of the Union 

Stargazer 

Unicom 

Wise Shopper 

Word Scramble 



Memory and Logic 

Four by Four 
Matchmaker 
Notecrafter 

Science 

Element Man Skeleton 
Heavenly Bodies Stargazer 
Plan a Menu 



Language Arts 

Alphabet Soup 
Personal Story 
Spelling Bee 
Word Scramble 

Mathematics 

Count the Spots 
Counting Game 
Lawn Mower 
Spend Your Allowance 
VWse Shopper 
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Social Studies 




Mother Earth 




Mr. President 




Movers and Shakers 


\^ 


State of the Union 


Unicom 


Li 




LJ 
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Programmer's Notes 



This appendix explains some of the changes you may wish to 
make to the games in this book. These changes are optional, but 
could be used to make the games more sttitable to your needs. 

Changes can be made either as you enter the program into 
the computer or after the program has been entered. 

All of the changes accomplish one of two things: 

1. Cause the program to accept input from the keyboard, rather 
than a joystick. 

2. Revise the questions in a game after all the old questions and 
answers have been memorized. 

Most of the games in this book read their data from DATA 
statements near the end of the program. For example, in the game 
"Spelling Bee," all of the words in the game are obtained from 
DATA statements. This allows the user to substitute a complete 
new set of words by changing only a few statements. If you're 
uncertain about the syntax of the DAIA statement, please read 
Chapter 8 in the Commodore 64 User's Guide (the book that came 
with your Commodore 64). Note also that the values defined by 
DAIA statements in this book sometimes have extra spaces in 
them. This may appear strange in print, but it is designed so that 
the data will print correctly on the Commodore 64 and not wrap 
aroimd the screen. 

The modifications in this appendix that convert a joystick 
game to use the keyboard assume that the following keys will be 
used: 

W=UP 
Z=DOWN 
A=LEFr 
S= RIGHT 

A-Maze-Ing 

If you wish to change the two-minute time limit, change the 
"000200" value (HHMMSS) in line 8000. 

The subroutine starting at line 9000 builds the maze. This is a 
modification of the "Maze Generator" ( COMPUTEI's First Book of 
Commodore 64 Games). 
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Replace the following lines to adapt the game for a keyboard ^ 
rather than a joystick: 

8005 J1=PEEK(197) :IP Jl=9 THEN R2=R2-1 :rem 40 ^ 

8010 IF Jl=33 THEN R2=R2+1 :rem 70 ^ 

8020 IF Jl=17 THEN C2=C2-1 :reni 45 

8030 IF Jl=41 THEN C2=C2+1 :rem 41 

Build a Quiz ^ 

The program is written to write/read quiz data to/from either disk 
or tape. The program assumes device number 1 for tape and ^ 
device number 8 for disk. If you wish to change these defaults, ^ 
change the variables DI = 8 and TA. = 1 in line 100. 

Quiz files written by the program have a name of "QUIZ/" ^ 
followed by the first 11 characters of the qtiiz name. Be careful not 
to create files with duplicate names. You may change this name 
structure by changing the subroutine starting at line 7500. *^ 

Earthworms ^ 

This game may be modified to use the keyboard instead of a joy- 
stick. Replace the foUowing lines in the program: 

2210 KP=PEEK(197) jrem 180 

2220 IF KP=9 THEN V3=-l :rem 185 U 

2230 IF KP=12 THEN V3=l :rem 183 

2240 IF KP=10 THEN H3=-l :rem 213 ^ 

2250 IF KP=13 THEN H3=l :rem 172 ^ 

Element li/lan lJ 

The number of chemical elements is defined by the variable 
NW% = 103 in line 100. Cheinge this number if you add or delete 
any elements. 

The element names are defined with DATA statements in 
lines 10000 through 10200. Elements may be added or deleted 
from this list as desired. The maximum size of an element name is LJ 
20 characters. 



U 



Four by Four 

Lines 9000 through 9130 define 35 different question categories 
used in the game. You may modify these as desired, but there O 
must always be 35. ^ 

Line 9500 defines the letters of the alphabet that will be used 
in the game, plus any wild letters (shown as an asterisk) . You may ^ 
change these if you wish, but the number of letters must always 
be 28. 
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An answer will be ignored if the first letter entered does not 
match the letter requested by the program (except for wild let- 
ters). All names of people shotildbe entered as "LAST, FIRST". 



Get the Treasure 

Ten different treasures are defined on line 10000. These numbers 
correspond with the screen codes defined in Appendix E of the 
Commodore 64 User's Guide. You may wish to change this so that 
the treasures are letters, numbers, etc., but there must always be 
'"^ ten treasures. 

^ The six colors of the treastires are defined by line 10010. These 

correspond with the codes in Appendix G of the Commodore 64 
User's Guide. You may change them if desired, but there must al- 
^ ways be six. 

This game is designed for young children who would have a 
C"^ hard time using the keyboard, but if you want to change the pro- 
gram to use the keyboard: 

420 J2=J1:K2=K1:KP=PEEK(197) irem 99 

425 IF KP=9 THEN J2=J2-1 :reni 253 

r-i 430 IF KP=12 THEN J2=J2+1 :rem 33 

440 IF KP=10 THEN K2=K2-1 trem 36 

O 450 IF KP=13 THEN K2=K2+1 :rem 38 

Heavenly Bodies 

^ One hundred different questions are defined starting with line 

2000. If you add or delete any questions, you must change the var- 
O iable NQ = 100 in line 100. Each question is composed of two dif- 
_ ferent items: 



1. The question itself, which must be contained in one DAIA 
statement. 

O 2 . The answer to the question, expressed as a one-letter planet 



code (the same code a player uses when answering questions in 
this game). 



IHidden Picture 

O Modify the program to use a keyboard instead of a joystick with 
y— n the following lines: 

8000 J1=PEEK(197) :rem 151 

8010 IF Jl=9 THEN C2=C2-1 :rein 253 

8020 IF Jl=12 THEN C2=C2+1 jrem 38 

8030 IF Jl=10 THEN R2=R2-1 :rem 69 

8040 IF Jl=13 THEN R2=R2+1 :rem 71 

8050 IF Jl=4 THEN JF=1 :rem 117 

8060 RETURN trem 174 
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The routine shown above will also allow you to select the next CJ 
picture by pressing the fl key instead of the fire button on the ^ 
jo57stick. 

Program lines 4900 through 7999 are reserved for defining i-J 
extra pictures. Use the following procedure to do this: 

1. Line 4000 generates a random number from 1 to 4 to determine 
which of the four pictures to draw. Change this to reflect the new 
number of pictures after you have added yotirs. 

2. Line 4010 branches to a print routine, depending on the num- 
ber picked in step 1. Add the line number of your new print rou- 
tine(s) to this list. The first line nximber in the reserved area is line LJ 
4900. 

3. Add a print routine starting at the line specified on statement 
4010. Use PRINT statements to clear the screen (SHIFT/CLR) and '-^ 
then draw your picture. 

4. When your picture is complete, branch (GOTO) statement 250. ^ 
Mother Earth 

The data for the questions in these programs begin at line 3000 
(Mother Earth-1) and 3190 (Mother Earth-2) . You may add, delete, 
or change questions in this game, but there must always be at ^ 
least 3 nations defined per category, and there cannot be more \^ 
than 30 nations in any single category. 
Each question is composed of six parts: 

1. Category (a letter, A through E). 

2. Cluel. ^ 

3. Que 2. 

4. Que 3. ^ 

5. Que 4. 

6. Answer (name of the nation) . 

The multiple-choice question is not entered in a DAIA statement, 
but it is generated by the program. 



u 



u 
u 
u 



Mr. President 

The variable NP in line 100 defines the number of presidents, and lJ 
the DAIA statements in lines 1000 through 2490 provide the clues 
and answers. If you wish to add an entry, increase NP by 1 and 
add the new data after line 2490. The data for each president are {J 
defined as follows: 

U 
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1. duel. 

2. Clue 2. 

3. Que 3. 

4. Que 4. 

5. President's name. 

Please note that the program prefixes each clue with a value of 
HE. 

Even though the presidents are selected in a random order 
during the game, the clues for each president are always given in 
the same order. If you wish to change this to use random selec- 
tion, make the following changes: 



331 


FOR W=0 TO 3 


:rein 24 


332 


RT%(W)=0:NEXT W 


:rem 72 


333 


FOR W=l TO 4 


:rem 28 


334 


Y=INT(RND(1)*4) 


:rem 48 


335 


IF RT%(Y)<>0 THEN 334 


:rein 18 


336 


RT%(Y)=W:NEXT W 


:rem 117 


420 


PRINT CHR$(17);CHR$(17);"HE 


";QT$(RT%(W)-1);". 




";CHR$(17);CHR$(17) 


:rem 155 



Plan a Menu 

The foods used in this game are defined starting with line 4000. 
There are six categories of foods, but more could be added. The 
categories must be in the correct order in the DAIA statements, as 
they are presented in the same order during the game. Each cate- 
gory of items has the following structure: 

1. The name of the food. 

2. The number of calories per serving. 

Items 3 through 10 are numbers which express the percentage of 
your daily nutritional requirements which this food supplies: 



3. 


Protein. 


4. 


Vitamin A. 


5. 


Wamin C. 


6. 


Thiamin. 


7. 


Riboflavin. 


8. 


Niacin. 


9. 


Calcium. 


10. 


Iron. 
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Movers and Shakers ^ 

The questions and answers used in this game are defined by 
DATA statements in lines 3000 through 5510. You may add new 
people to the game, as long as the number of people in any one 
category does not exceed 25. Also, the variable NS = 63 in line 100 
must be adjusted to reflect the total nvimber of people in the 
game. ^ 
The data for each person in the quiz are composed of five \^ 
parts: 

1. The category code(s) (A-G). 

2. The person's name. ^ 

3. Cluel. UJ 

4. Que 2. 

5. Quel 

The category code may reflect mtdtiple categories if a person 
is famous in a number of areas ( ACD) . Notice that category H LJ 
should not be specified, as it is done automatically by the 
program. 

Skeleton 

The number of bones in the program is defined by the variable ^ 
NW% = 43 in line 100. This should be adjusted if the number of ^ 
bones is increased or decreased. The bones themselves are 
named in DAIA statements in lines 7000 through 7090. Note that ' 
the name of a bone carmot exceed 20 characters. 



Spelling Bee 

The variable NW% = 40 in line 100 defines the total number of 
words in each skill level (40 times 3, or 120 total) . If you change the 
value of NW% you must also change the number of words in 
each skill level. The words are defined by DAIA statements in the 
following line number ranges : ^ 

Beginning Words 6000 through 6999. ^ 
Intermediate Words 7000 throu^ 7999. 
Advanced Words 8000 through 8999. 

Any new words should not be longer than 20 letters. 

Spend Your Allowance 

Lines 3100 through 3600 define 100 different items that may be ^ 
purchased. Each item is composed of three parts : ^ 

1. The name of the item. 
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2. The cost of the item (500 = $5.00), 

3. The prudence factor (1-5) . (1 = poor purchase, 5 = wise 
purchase). 

The prudence factors for the 4 items purchased each month 
are added together and divided by 4. If the resulting answer (that 
is, the average prudence factor) is 4 or greater, and the current bal- 
ance is not a negative number, the allowance will be increased by 
$1. This is done by lines 905-910 of the program. 

If the average prudence factor is less than 2, the allowance 
will be reduced by $1, but only if the resulting monthly allowance 
is not less than $5. This is done in lines 2000-2010 of the program. 

lines 4000 through 4300 contain 30 surprises which may 
occur during the game. Each surprise consists of three items: 

1. Description of the surprise. 

2. Amount to adjust cash on hand (500 = $5.00). 

3. Good or bad stirprise(l = Good; -l=Bad). 

Stargazer 

There are 32 constellations in the game, defined by the variable 
NS = 32 in line 100. The data for each constellation start in line 
9100 and are composed of six parts per constellation: 

1. Name of the constellation. 

2. Name of best viewing month. 

3. Direction in the sky. 

4. Que. 

5. A variable set of numbers which defines each star in the con- 
stellation. These numbers are added to the address of screen 
memory to determine where a star should appear. (Refer to 
Appendix G in the Commodore 64 User's Guide.) 

6. A numeric value of to indicate the end of the stars. 

State of the Union 

The number of states is defined by the variable NS = 50 in line 100. 
The information about the states themselves is defined by DATA 
statements in lines 1000 through 2970. Each entry consists of four 
clues, followed by the name of the state, and a number repre- 
senting the location of the state on the United States map. This 
number is added to the screen origin to determine where to place 
the black square on the map. (Refer to Appendix G in the Commo- 
dore 64 User's Guide.) 
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Although the states are presented in a random order, the 
clues within a given state are always in the same order. To change 
this to a random selection, make the following changes : ^ 

331 FOR W=0 TO 3 :rem 24 LJ 

332 RT%(W)=0:NEXT W : rem 72 

333 FOR W=l TO 4 :rem 28 

334 Y=INT{RND(1)*4) : rem 48 

335 IF RT%(Y)<>0 THEN 334 : rem 18 

336 RT%(Y)=W:NEXT W : rem 117 
420 PRINT CHR$(17);CHR$(17);CHR$(17):QT$(RT%(W)-1) 

:rem 212 LJ 
430 PRINT CHR$(17);CHR$(17);CHR$(17) :rem 200 

LJ 

Unicorn lJ 

The mythological characters are defined by lines 1000 through 
3740, with the total nvimber of characters being represented by the 
variable NS in line 100. Each character is represented by four LJ 
clues, followed by a three-name multiple-choice list, and the 
number 1, 2, or 3 to indicate which of the three names is correct. 
For example, the following lines cotdd be added to create a ques- 
tion about Heracles: 

3750 DMA "CLUE 1" 
3760DAIA"CLUE2" ^ 
3770 DATA "CLUE 3" 
3780 DAIA "CLUE 4" 
3790 DATA ZEUS,MARS,HERACLES,3 
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Wise Sliopper 

The number of oimces purchased of each item is calcttlated on ^ 
lines 300 through 310. TTbie price per oxmce is calculated by lines 
320 through 330. 

The names of the 20 possible purchase items (only 10 are 
selected per game) are defined by DATA statements in lines 9100 \^ 
through 9130. Each name has two parts ("corn," "flakes") but one- 
part names can be used by setting the second name to a blank ^ 
("rice," " ") . Each word should not exceed six characters. 

Users may modify any product name, but there should 
always be 20 products defined. LJ 

Word Scramble ^ 

The variable TS = 50 in line 100 defines the number of words in LJ 
each skill level (50 times 3 = 150 total words). You may add, delete, 
or change words as desired, provided the number of words in 
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each skill level matches the value of TS. 

Words are defined by DAIA statements in the following lines: 

9000-9040 BEGINNER'S WORDS 
9100-9140 INTERMEDIATE WORDS 
9200-9300 ADVANCED WORDS 
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The Automatic Proofreader 



'The Automatic Proofreader" will help you t3^e in program list- 
ings in this book without typing mistakes. It is a short error- 
checking program that hides itself in memory. When activated, it 
1^ lets you know immediately after typing a line from a program 

listing if you have made a mistake. Please read these instructions 
carefully before tj^ing any programs. 

Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Watch out for 
typing an I instead of a 1, or an O instead of a 0, extra commas, 
etc. 

2. SAVE it on tape or disk at least twice before running it for the first 
time. If you mistype the Proofreader, it may cause a system crash 

I—, when you first run it . By S/VEing a copy beforehand, you can 
reLOAD it and hunt for your error. Also, you'll want a backup 
copy of the Proofreader. Future COMPUTE! Books as well as 
COMPUTEI's GAZETTE will use the Proofreader. 

3. RUN the Proofreader. It will be POKEd into a relatively safe 
^ area of memory, the cassette buffer. 

O 4. Type RUN to activate the Proofreader. If you ever need to reacti- 
^ vate it, just enter the command SYS 886 and press RETURN. 

O Using the Proofreader 

^ All the Ustings in this book have a checksum number appended to 
the end of each line, for example ": rem 123". Don't enter this state- 
ment when typing in a program. It is just for your information. The 
rem makes the nxmiber harmless if someone does type it in. It 
wiU, however, use up memory if you enter it, and it will confuse 
the Proofreader, even if you entered the rest of the line correctly. 

When you type a line from a program listing and press 
RETURN, the Proofreader displays a number at the top of your 
screen. This checksum number must match the checksum number in the 
printed listing. If it doesn't, it means you typed the line differently 
than the way it is listed. Immediately recheck your typing. Re- 
member, don't type the rem statement with the checksum num- 
ber; it is published only so you can check it against the number 
which appears on your screen. 
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886 


DATA 


173 


,036,003 


,201 


,150,208 


892 


DATA 


001 


,096,141 


,151 


,003,173 


898 


DATA 


037 


,003,141 


,152 


,003,169 


904 


DATA 


150 


,141,036 


,003 


,169,003 


910 


DATA 


141 


,037,003 


,169 


,000,133 


916 


DATA 


254 


,096,032 


,087 


,241,133 


922 


DATA 


251 


,134,252 


,132 


,253,008 


928 


DATA 


201 


,013,240 


,017 


,201,032 


934 


DATA 


240 


,005,024 


,101 


,254,133 


940 


DATA 


254 


,165,251 


,166 


,252,164 


946 


DATA 


253 


,040,096 


,169 


,013,032 


952 


DATA 


210 


,255,,165 


,214 


,141,251 


958 


DATA 


003 


,206,251 


,003,169,000 


964 


DATA 


133 


,216,169 


,019 


,032,210 


970 


DATA 


255 


,169,018 


,032 


,210,255 


976 


DATA 


169 


,058,032 


,210 


,255,166 


982 


DATA 


254 


,169,000 


,133 


,254,172 


266 













u 
u 

The Proofreader is not picky with spaces. It will not notice ex- 
tra spaces or raissing ones. This is for your convenience, since 
spacing is generally not important. But occasionally proper 
spacing zs important, so be extra careful with spaces, since the 
Proofreader will catch practically ever)^hing else that can go 
wrong. 

There's another thing to watch out for : if you enter the line by \_j 
using abbreviations for commands, the checksum will not match 
up. But there is a way to make the Proofreader check it. After ^ 
entering the line, LIST it. This eliminates the abbreviations. Then ^ 
move the cursor up to the line and press RETURN. It should now 
match the checksum. You can check whole groups of lines this ^ 
way. ^ 

When you're done with the Proofreader, disable it by 
pressing RUN/STOP-RESTORE (hold down the RUN/STOP key ^ 
and press RESTORE). If you need it again, enter SYS 886. It will 
then be ready once again to act as your personal typing aid. How- 
ever, sometimes the Proofreader can be wiped out of memory. In 
this case, youH have to reLOAD the Proofreader from tape or 
disk. 
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Automatic Proofreader 

100 PRINT" {CLR}PLEASE WAIT. .." :FORI=886TO1018t READ 

AiCK»CK+A»POKEI,A»NEXT Lj 
110 IF CK017539 THEN PRINT" {DOWN} YOU MADE AN ERRO 
R"t PRINT "IN DATA STATEMENTS. " t END 
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120 SYS886tPRINT"{CLR}{2 DOWN ) PROOFREADER ACTIVATE 

u 

LJ 
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L^ 
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LJ 
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LJ 
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u 



^ 988 DATA 151,003,192,087,208,006 
O 994 DATA 032,205,189,076,235,003 

1000 DATA 032,205,221,169,032,032 
1006 DATA 210,255,032,210,255,173 
1012 DATA 251,003,133,214,076,173 
1018 DATA 003 
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If you've enjoyed the articles in this book, you'll find the 
some style and quality in every monthly issue of COMPUTE! 
Magazine. Use this form to order your subscription to 
COMPUTE!. 



For Fastest Service, 
Call Ourloll-Free US Order Line 

800-334-0868 

In NC call 919-275-9809 



COMPUTC! 

P.O. Box 5406 
Greensboro, NC 27403 



My Computer Is; 

□ Commodore 64 DTI-PPMA □ Timex/Sincloir □VIC-20 nPET 

n Radio Shack Color Computer □ Apple □Atari □ Other 

□ Don't yet have one... 

n $24 One Year US Subscription 

□ $45 Two Year US Subscription 
n $65 Three Year US Subscription 

Subscription rotes outside the US: 

□ $30 Canada 

□ $42 Europe, Australia, New Zeolond/AIr Delivery 

□ $52 Middle East North Africa, Central America/Air Mail 

□ $72 Elsewhere/Air Mail 

□ $30 International Surface Moil (lengthy, unreliable delivery) 

Name 

Address 

City State Zip 

Country 

Payment must be in US Funds drawn on a US Bank International Money 
Order, or charge card. 

□ Payment Enclosed □ VISA 

n MasterCard □ American Express 

Acct. No. Expires 

37-X 
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If you've enjoyed the articles in this book, you'll find 
the same style and quality in every monthly issue of 
COMPUTEI's Gazette for Commodore. 



For Fastest Service 
Call Our Toll-Free US Order Line 

800-334-0868 

In NCcall 919-275-9809 



coMPUTEi's mMmmwwm 

P.O. Box 5406 
Greensboro, NC 27403 

My computer is; 

□ Commodore 64 □VIC-20 □ Other _ 



□ $20 One Year US Subscription 

□ $36 Two Year US Subscription 

□ $54 Three Year US Subscription 

Subscription rates outside the US: 

$25 Canada 
$45 Air IVIail Delivery 
$25 internationai Surface IVIaii 

Name 



Address 



City State Zip 



Country 



Payment must be in US Funds drawn on a US Banic Internationai Money 
Order, or charge card. Your subscription will begin with the next avail- 
able issue. Please allow 4-6 weeks for delivery of first Issue. Subscription 
prices subject to change at any time. 

□ Payment Enclosed □ VISA 

□ MasterCard □ American Express 

Acct. No, Expires / 



The COMPUTEts Gazette subscriber list Is made available to carefully screened organiza- 
tions with a product or service which may be of Interest to our readers. If you prefer not to 
receive such mailings, please check this boxQ . 
37-X 
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Learning Through Games 

Whether yi>u're just slarting cir you already kmnv how to 
program, you've probably realized that creating educational, 
entertaining games takes time and practice. This book, with 30 
complete games, gives you an instant library of educational soft- 
ware lor vourchildren. 

• Hiiliicii Pichnr, in which your child uncovers a series ol 
drawings on the screen using a joystick 

• NolccmftcK which matches your musical ear against the 
computer 

• Star^nzci; in which you identify constellations displayed as 
you'd see them in the night sky 

• Real People, which tests vour knt)wledge of historical figures 

• A program which allows vou to create a quiz on any subject 

• And games that teach skills from spelling io world 
geography 

Each game is ready to type in and run on youi' Commodore 
M, with clear explanations. Sou can even change the games to fit 
your child's needs. 

And since the games are fun to piay, your child will return to 
them again and again, learning something new each time. 



ISBN 0^942386-37-X 



